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(57) Abstract 



A method of providing Web access to data using dynamic generation of Web pages by a mainframe computer (16, 18) connected to 
a Web server (12, 14). The mainframe computer (16, 18) has legacy programs, legacy data, and legacy subroutines on it (legacy means 
existing information systems which may not be specifically adapted to Web access). A Web control program on the mainframe generates 
Web pages for the user. A state key is generated by the mainframe upon a user inputting identification data and is used to determine access 
allowed without the user reentering identification data. 
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WEB PAGE ACCESSING OF DATA BASES AND MAINFRAMES 

Copyright 

A portion of the disclosure of this patent document 
contains material which is subject to copyright protection. 
The copyright owner has no objection to the facsimile 
reproduction by any one of the patent disclosure, as it 
appears in the Patent and Trademark office patent files or 
records, but otherwise reserves all copyright rights 
whatsoever. 

Background of the Invention 

The present invention relates to distribution of 
information over a computer network using hypertext links 
and Web pages. More specifically, the present invention 
relates to information distribution by interaction of a Web 
page on a client, a Web server connected to the client via 
the Internet, and programs, such as a database program, on 
a mainframe computer. 

The explosive growth of the Internet over the last 
several years has dramatically improved the ability to 
quickly distribute vast amounts of data to any interested 
person. Additionally, the use of cookies, Secure Sockets 
Layers (SSL) , and numerous other techniques have allowed 
the Internet to provide distribution of information 
restricted to an authorized person only. 

An example may best illustrate some considerations in 
the situation. A book store may have a Web server that 
allows customers and potential customers access to 
information. The information might be "unrestricted 
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access" information such as a list of books that the book 
store is willing to sell. The information might be 
"customer specific" information, such as the list of books 
currently under order by a customer, the customer's account 
balance, or other such information that should be 
accessible only to the given customer (apart from 
appropriate employees of the book store who may need access 
to such restricted information) . Moreover, there might be 
information available to a class of customers, but which 
should not be accessible by all persons. Thus, a list of 
books at special discounted prices could be available to 
any member of a preferred buyer group, but not to others. 

Regardless of whether information is unrestricted, 
restricted to a single user, or has some intermediate level 
of restriction, distribution of the information via the Web 
requires that a Web server handle the information. Several 
methods exist to enable the Web server to handle the 
information. 

The most direct technique is for the book store's 
programmers or other employees to put the information on 
the Web server. Thus, a book store setting up a Web site 
can simply take its list of books from whatever computer it 
is currently stored on and reformat the list as needed. 
However, when the list is updated at its current storage 
location (such as a mainframe computer), the book store's 
employees would also have to update the list on the Web 
server. The disadvantages of requiring the same 
information to be updated at multiple storage locations 
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(such as in the mainframe computer and in the Web server) , 
the possibility of data updates being made inconsistently, 
and the increase in storage demands required when the data 
must be stored in one location (such as a mainframe) for 
internal company use and in another location (such as a Web 
server) for access via. the internet or other outside 
access. 

Another technique for providing Web access to data is 
for the book store's programmers to write specific 
interface programs to translate data stored in a database 
on the book store's mainframe computer. For example, an 
interface program can convert database data into hypertext 
markup language (HTML) such that a Web browser may display 
the data as a Web page. However, generating such interface 
programs requires skills that may be outside the experience 
of the employees who manage the mainframe and its 
databases. Further, such interface programs may be 
required for different types of data access. If a list of 
available books is stored in one database with a given 
format, and a list of customers is stored in a different 
format in a different database, a different interface 
program may be required for each. Considering also that a 
list of book publishers may be stored in yet another format 
and that the book store might allow each book publisher to 
view its own account information, yet another interface 
program would have to be developed. Developing interface 
programs for each database or each data format is expensive 
and time-consuming. 
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In addition to problems associated with allowing Web 
access to data on mainframe databases, security 
considerations often complicate access to information. For 
example, if the book store wanted to allow customers access 
to details about the status of their book orders or their 
account, the Web server often places a so-called cookie on 
the customer's computer. The cookie is a small file of 
data or code identifying the customerOs computer to the Web 
server. However, many computer users do not want their 
computers accepting cookies from Web servers and they 
therefore limit the use of this. A further problem with 
some Web access security arrangements is that some are too 
easily overcome. For example, a person may "spoof" 
another's identity (impersonate another) in order to obtain 
restricted data. 

Yet another consideration in distributing large 
amounts of data via the Internet is the need to be able to 
manage and administer a Web site. Often Web site 
management requires complex knowledge and considerable 
effort. Changing the appearance of a Web page (such as 
changing the presentation of data on a Web page) can be a 
time-consuming process which requires highly specialized 
expertise. (As used herein, changing the appearance means 
causing the Web page to appear differently to all who 
access it by causing it to display data from the computer 
storing the Web page, and shall not include simply 
appending user comments or designs to a Web page as is 
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common for Web-based 'bulletin board or public comment 
boards, ) 



Objects and Summary of the Invention 

Accordingly, it is a primary object of the 
present invention to provide a new and improved technique 
of distributing data via the Internet or other computer 
network, bulletin board, etc. 

A more specific object of the present invention 
is to provide for Internet distribution of data stored in 
a database without the need for storing the data on a Web 
server. 

A further object of the present invention is to 
provide ready Web access to data stored in various formats 
without the need to develop different programs. 

Yet another object of the present invention is to 
provide a new and improved security arrangement for 
limiting access to Web data to authorized users. 

A further object of the present invention is to 
provide convenient management of a Web site without 
requiring advanced programming skills or expertise in HTML. 

The above and other features of the present 
invention which will be more readily understood when the 
following detailed description is considered in conjunction 
with the accompanying drawings are realized by a method of 
providing Web access to data. A Web server for 
distribution of data to users is provided. A database is 
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provided on a database computer operably connected to the 
Web server, the database having a database program that 
provides data in a given format. Upon a user requesting 
data in the database, the Web server forwards the request 
to the database, the database program accesses the data in 
the given format. The database computer runs a Web control 
program that generates a Web page with the requested data 
and supplies the generated Web page to the user. The Web 
control program marries file definition objects and page 
definition objects to generate Web pages. The Web server 
is on a Web server computer different from the database 
computer. The database computer is a mainframe computer. 
The mainframe computer supplies the generated Web page to 
the user via the Web server computer. Upon a user 
requesting data not in the mainframe computer, the Web 
control program causes the mainframe computer to access 
data on a remote computer and the Web control program then 
generates a Web page with the requested data and supplies 
the generated Web page to the user. Responsive to a user, 
the Web control program calls a subroutine on the mainframe 
computer, which subroutine is independent of the Web 
control program and is a legacy subroutine. The method 
further includes the steps of: having a user supply an 
identification code, forwarding the identification code 
from the Web server computer to the mainframe computer, the 
Web control program then generating a state key, 
incorporating the state key into a Web page supplied to 
that user, and wherein the mainframe computer detects the 
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state key from the Web page upon the user requesting data 
and decides whether that user can access the requested data 
based on the state key. The state key is randomly 
generated for a given access session and the state key 
loses its ability to authorize data access if it is not 
sent by the user to the mainframe computer at least once 
during a time-out interval. The Web control program 
receives a page change command from a user using a Web 
browser and, responsive to the page change command, the Web 
control program changes a given Web page to a changed Web 
page such that any users accessing the given Web page now 
receive the changed Web page, the page change command 
changing the appearance of a given Web page. 

The present invention may alternately be described as 
a method of providing Web access to data, the steps 
including: providing a Web server for distribution of data 
to users; providing a database on a database computer 
operably connected to the Web server, the database having 
a database program that provides data in a given format; 
providing a Web control program on the database computers- 
having a user supply an identification code to the Web 
server, the Web control program then generating a state 
key and incorporating the state key into a Web page 
supplied to that user, and wherein the database computer 
detects the state key from the Web page upon the user 
requesting data and decides whether that user can access 
the requested data based on the state key. The state key 
loses its ability to authorize data access if it is not 
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sent by the user to the database computer at least once 
during a time-out interval. The Web server is on a Web 
server computer different from the database computer. The 
method of further includes the step of forwarding the 
identification code from the Web server to the database 
computer. The database computer is a mainframe computer. 
The state key is randomly generated for a given access 
session. 

The present invention may alternately be described as 
a method of managing a Web site, the steps including: 
providing a Web control program on a computer; having the 
Web control program receive a page change command from a 
user using a Web browser to access the Web site; and, 
responsive to the page change command, the Web control 
program changing a given Web page to a changed Web page 
such that any users accessing the given Web page now 
receive the changed Web page, the page change command 
changing the appearance of a given Web page. The Web 
control program marries file definition objects and page 
definition objects to generate Web pages. 

The computer having the Web control program is a 
mainframe computer and users request data on the mainframe 
computer via a Web server on a Web server computer. The 
Web control program generates HTML through a completely 
table driven process, independent of file definitions and 
page definitions. The method further includes the steps 
of: having a user supply an identification code, forwarding 
the identification code from the Web server computer to the 
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mainframe computer, the Web control program then generating 
a state key, incorporating the state key into a Web page 
supplied to that user, and wherein the mainframe computer 
detects the state key from the Web page upon the user 
requesting data and decides whether that user can access 
the requested data based on the state key. 

The method further includes the steps of: 
providing a database on the mainframe computer, the 
database having a database program that provides data in a 
given format; upon a user requesting data in the database, 
the Web server forwarding the request to the database, the 
database program accessing the data in the given format, 
and, by operation of the Web control program, generating a 
Web page with the requested data and supplying the 
generated Web page to the user. 



Brief Description of the Drawings 
The above and other features of the present 
invention will be more readily understood when the 
following detailed description is considered in conjunction 
with the accompanying drawings wherein like characters 
represent like parts throughout the several views and in 
which: 

FIG. 1 is a simplified diagram of the arrangement 
used for the present invention; 

FIG. 2 is a simplified view of the appearance of 
a Web page according to the present invention; 
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FIG. 3 is a simplified view of the appearance of 

an identification Web page according to the present 
invention; 

FIG. 4 is a simplified view of the appearance of a restricted Web page 
according to the present invention; 

FIGS. 5A and 5B are parts of a simplified 
overall flowchart of the handling of a Web request for 
data ; 

FIG. 6 is a flowchart of function determination, 
showing more details of parts of the flowchart of FIGS. 
5A and 5B; 

FIG. 7 is a flowchart of driven Web page data 
access; and 

FIG. 8 is a simplified diagram illustrating a 
recursive Web page change feature of the present 
invention. 



Detailed Description 
Turning now to FIG. 1, some very basic concepts of 
the present invention will be discussed. Users accessing 
the World Wide Web of the Internet use their computers 10 
running a Web browser program to access a Web server 12. 
(For ease of illustration, connections intermediate to 
the computers 10 and Web server 12 , such as computers of 
an Internet service provider, are not shown.) The Web 
server 12 may be connected to receive information from 
another Web server such as 14. Additionally, the Web 
server 12 is connected to a mainframe computer 16 that 
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has legacy programs, legacy data, and legacy subroutines 
on it. (Legacy means existing information systems which 
may not be specifically adapted to Web access) . 

Previously, and as discussed in the background 
above, providing access to data on the mainframe via the 
Web required one to select from a number of unattractive 
options. The data could be duplicated on the Web server 
with the associated expansion in storage demands and 
increase in complexity in updating data (the data would 
have to be changed at each location where it is stored) . 
Alternately, specific programs could be developed to 
allow Web access to particular data in the mainframe. 

Advantageously, the present invention uses a Web 
control program that can generate Web pages in response 
to requests by users at computers 10. The Web control 
program runs on the mainframe 16 and generates the HTML 
needed to display particular data as part of a Web page. 
The Web access program on computer 16 additionally may, 
in response to a request for data that is not stored on 
mainframe computer 16, send a request for the data to 
another mainframe 18, receive the requested data back, 
put it into web format (i.e., mark it up into HTML) , and 
supply the Web page to the user. The mainframe computer 
16 can access data at other computers by EDI (electronic 
data interchange) , over TCP/IP (transport control 
protocol/internet protocol) or other protocols. 

The web control program is part of a Web management 
system also including a program that runs on the Web 
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server 12, which Web server is preferably running on a 
separate computer from the database-holding mainframe 
computer 16. In the discussion that follows, the Web 
management system will be referred to by the name EAGLE 
(Enhanced Application Generation Language for the 
Enterprise) . EAGLE consists of several different and 
distinct parts including: 



There is a C program that runs as a CGI (common 
gateway interface) program on a Web server to extract and 
format data from forms that are submitted from a Web 
browser . 



There is a routing mechanism and a management 
structure for invoking CICS programs that can (Note: 
CICS is an IBM trademark. ) 

produce Web pages. (As used herein, CICS stands for 
customer information control system running on the 
mainframe.) These pages can be created in 
any one of the three methods described below. Pages that 
are generated may then be interactively enhanced with 
styles, buttons, files to be 

read and/or updated, subroutines to be called, and many 
other variables using CICS-created objects. 

There is a state engine that keeps track of Web 
users and is able to maintain a session for Web users as 
well as do timeouts and re-establish 
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sessions using CICS programs. 
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There is a CICS-based HTML generator that 
allows interactive creation of Web pages that can 
manipulate mainframe databases by reading, browsing, and 
updating VSAM and DB2. This one module can manage any 
number of different files, including fixed-length and 
segmented VSAM files, as well as DB2 databases. This 
program uses ClCS-created objects for HTML generation 
including (but not limited to) file definitions, page 
definitions, drop-down lists, and Web page text. 

There is a set of development tools that 
facilitate the writing of EAGLE subroutines by generating 
object modules from simple templates that at the same 
time allow very flexible customizing of the modules. 
These object modules have the ability to read, browse, 
and update mainframe databases 

including VSAM (a specific brand name of indexed file 
structure) and DB2 . (a specific database). 

Programs can be written and executed in any 
CICS-supported language without using any of the EAGLE 
development tools. 



This product can send and receive TCP/IP 
requests from any TCP/IP enabled source including 
Internet e-mail. 
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Except for the C program that resides on the 
Web server, all of the programs are written in CICS 
Command Level Assembler language and run on IBM 
mainframes. This allows a level of security and 
scalability not found in other multi-tiered products. 
This would be especially useful in 

providing legacy mainframe systems and databases with Web 
access . 



All of the CICS objects necessary for operating 
EAGLE are created and maintained via the Web using EAGLE 
itself or by using mainframe terminal sessions (i.e., 
IBM3270) . 



Before supplying some specific examples of the Web 
management system in operation, some highly advantageous 
aspects of EAGLE will be discussed. 

The combination of a CICS-based state engine and a 
program management structure that allows dynamic 
invocation of CICS programs means that the Web pages 
managed by EAGLE are associated with CICS-based objects 
that can be created and maintained interactively via the 
Web. Any Web page which is a part of EAGLE may call any 
subroutine, specify any files, pass variable data to the 
called subroutine, invoke additional subroutines or pages 
by way of return codes to the routing mechanism (error 
processing, rerouting of a request, pages by way of 
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return codes to the routing mechanism (error processing, 
rerouting of a request, etc.) These pages may require a 
PIN or other user authentication, invoke a process 
external to CICS, use a variable style-sheet, and include 
button objects. The flexibility of this system provides 
"other features too numerous to mention here. 

The ability to generate subroutines from CICS-based 
page templates that can be attached to EAGLE easily and 
seamlessly is another advantageous feature of EAGLE. 

The existence of one single CICS program that can 
marry file definition objects and page definition objects 
resulting in the creation of a Web page that allows 
reading, updating, adding, deleting and browsing of VSAM 
files is an extraordinarily advantageous feature of the 
present invention. The EAGLE interactive HTML generator 
is completely table-driven and is independent of the 
actual file and page definitions. 

The EAGLE subroutines may be written in any CICS 
supported language. 

Presently, and in contest to the present invention, 
the accessing of data on a mainframe from the Web is done 
using multi-tiered systems, most often, 

"screen-scraping". These systems routinely contain many 
different programming languages and require many 
different skill sets. These skill sets are often very 
different from the skill sets of the mainframe staff and 
require intense training and frequent use. Also, the 
multi-tiered systems require other computers to act as 
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proxies for the mainframe, which adds a significant 
overhead cost. EAGLE cuts through these issues by 
operating on the mainframe using the language skills 
already possessed by the mainframe staff. EAGLE runs on 
the mainframe so that no extra machines are required for 
accessing the mainframe from the Web. This reduces the 
maintenance costs dramatically and reduces the number of 
points of failure as well. This methodology also cuts 
out the use of extra software products that not only add 
overhead to any transaction but also increase the 
complexity of the application and increase the difficulty 
of debugging errors. 

Turning now to FIG. 2, a specific example of a Web 
page that may be generated by the present invention is 
shown. In this and the following the Web pages will be 
discussed in the context of a university, but it will be 
readily understood that the invention has applicability 
to other contexts. FIG. 2 is a menu page where various 
menu items are hypertext, meaning that a computer user at 
a computer 10 (FIG. 1) can click on (put mouse cursor at 
and press enter or press left mouse button) and thereby 
select one of the menu items. For example, clicking on 
GRADES, will allow a university student to access his or 
her grades. 

Before allowing access to the grades, the 
identification Web page of FIG. 3 requires the student to 
enter a student identification number and personal 
identification number. Upon the student supplying this 
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information, the Web server 12 (FIG, 1) passes it to 
mainframe 16. The mainframe 16 generates a state key and 
incorporates the state key into the next Web page (FIG. 
4) displayed for the student. Specifically, the state 
key is randomly generated as a session key for this 
particular student. The state key is hidden on the Web 
page, meaning that a browser will not display it. 
However, when the student goes to another Web page 
restricted to that student (for example going from grades 
to transcripts), the manner of insertion of the state key 
on the Web page ensures that the browser program running 
on the computer 10 transmits the state key to the Web 
server 12. The Web server 12 in turn supplies the state 
key to the mainframe 16. Upon mainframe 16 confirming 
that the state key corresponds to the student in 
question, the transcript of the student can be accessed. 
Importantly, a part of EAGLE on the mainframe 16 disables 
a given state key if the state key is not received for a 
given time interval (timeout period). This reduces the 
chances that someone can readily access the private 
records of a student who steps away from his or her 
computer without remembering to close the program. 

Other menu items of FIG. 2 may allow access to 
unrestricted information such as the course schedule for 
a coming semester. Such unrestricted information may be 
available without going through identification procedures 
or may require one to log in with a guest identification. 
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Turning now to the flowchart of FIGS. 5A and 5B (the 
latter being a continuation of FIG. 5A) , the processing 
of a Web request for data will be discussed in detail. 
At block 20, a user at a computer 10 (refer momentarily 
back to FIG. 1) requests data from mainframe 16. The 
user's Web browser sends the request. At block 22 , the 
Web server 12 formats the request such that mainframe 16 
can respond. The mainframe 16 is running a CICS listener 
program such as supplied by IBM for use on its 
mainframes. At block 24, this passes control to CICS on 
the mainframe 16. Next, block 26 determines if the state 
key has been established and verified. If the particular 
data request requires a security, a screen such as FIG. 3 
will prompt the user to enter information causing access 
authentication, and the association of access 
authentication to a state key. Next block 28 reads a 
primary function table to determine the functions 
required to supply the requested data. 

The primary function table supplies the following: 
program to execute, if applicable, 
whether to LINK, XCTL, or START appropriate 

program, 

files/tables called programs to be used, 
page definition table to be used, 
additional subroutines to call, 
route code definitions, 

additional data to be used with program, 
set update flag ( Y/N, meaning yes or no), 
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PIN/Password protected page (Y/N) (some 
actions such as dropping a course may require reentry of 
PIN to increase protection against someone taking over 
when an authorized user has left without closing the Web 
browser program) , and 

call an external data source, if needed, 
supplies record key to table with all necessary 
information. 

Block 30 then runs any program needed to respond to 
the request, if no program is called, block 32 simply 
formats a Web page and sends it back to the user via the 
Web server 12, which Web server may simply relay, without 
change, the Web page or may make minor insertions before 
supplying the Web page to the user. Block 3 2 puts 
together all the parts of the outgoing Web page including 
the page style, buttons, or other objects; the generated 
HTML, state key, and cache information. If XCTL or START 
is required, control goes to block 34 which then closes 
the connection. 

If a LINK is made, a program on the mainframe is run 
Block 36 reads incoming data using page definition 
table. Further block 38 allows subroutines to determine 
whether to continue with this program at block 42 or at 
block 4 0 set a route code and return to the main routing 
routine. Data access uses one or more of the following 
methods: dynamic page definition and file definition 
tables, and fixed object module(s). 
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Block 44 updates files if appropriate and if data 
passes all edits. Block 46 formats data for display 
using one or a combination of the following methods: 
dynamic page definition and file definition tables, and 
fixed object module(s). 

Block 48 reads route code, if none is set, control 
goes to block 50 such that HTML is sent to the Web 
server, which in turn sends a response to the Web browser 
on computer 10. 

If the route code is set, block 52 interprets the 
route code, and via block 54, returns to main routing 
section at block 28. 

With reference now to FIG. 6, more details of block 
28 of FIG. 5A will be given. At block 56, a primary 
function table 58 is read. 

(A primary function table is given as Appendix 1 
attached; a primary Web page format is attached as 
Appendix 2; a Web page forms and styles is attached as 
Appendix 3; a data access, edits, and layout definition 
is attached as Appendix 4: and a Web page object is 
attached as Appendix 5. These give specific examples of 
particular features used in the preferred embodiment.) 

Block 56 leads to block 60 which tests if the page 
being requested is a protected page (i.e., restricted 
access) . if so, block 62 returns a function to block 56 
to test if the user is authorized, if block 60 
determines that the page is not protected, control goes 
to block 64 which determines if pre-function checks are 
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needed. if yes, block 64 leads to blocks 66 and 68 which 
perform the checks and determine if the checks were 
passed. If so, the data appears proper and control goes 
to the continue at 70. If not, an error is noted at 
block 72. 

Turning now to FIG. 7, a flowchart for driven Web 
page data access starts with block 74 which determines 
whether the page will use an object module. If yes, 
control goes to block 76 that provides Web page data 
access defined by the object module and leads to continue 
block 78. If no, a table driven process of data access 
at block 8 0 uses a primary Web page format 82, Web page 
objects 84, Web page forms and styles 86 and data access, 
edits, and layout definitions 88. Components 82 to 84 
may be as shown on appendices 2 to 5. 

FIG. 8 is a simplified example of how the present 
invention allows one, with proper authorization, to 
change a Web page in a recursive manner. The Web page 92 
is displayed at a userOs computer connected to Web server 
12 and mainframe computer 16. The user uses the web 
browser program on his or her computer to send a page 
change command to server 12 and mainframe 16. This page 
change command, causes the generation of a revised 
version of the original Web page, this being changed Web 
page 94. The revision may include different formating, 
style, data, etc., but will replace the old Web page 92. 
The page change command, as used herein, changes the 
appearance of the original Web page, meaning that it 
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causes the Web page to appear differently to all who 
access it by causing it to display data from the computer 
storing the Web page. As used herein, "changes the 
appearance" or "changing the appearance" shall not 
include simply appending user comments or designs to a 
Web page as is common for Web-based bulletin board or 
public comment boards- By allowing recursive control 
(controlling a given Web page from that Web page being on 
a personDs browser, not on the personDs Web page editor 
program ) of Web pages, the management of a large Web 
site can be quite efficiently performed. 

Attached as appendices A, B, C, D, E, F, G, and H 
are copyrighted programs which run on a mainframe 
computer in a specific implementation of the invention. 
Attached as appendix J is a copyrighted program in C 
called Nirvana and which runs on the web server computer 
in a specific implementation of the invention. Certain 
non-critical information such as ports that are used on 
the actual implementation have been changed or left out 
to reduce exposure to unauthorized persons overcoming 
security measures in a specific implementation of the 
technique. 

Although specific constructions have been 
presented herein, it is to be understood that these are 
for illustrative purposes only. Various modifications 
and adaptations will be apparent to those of skill in the 
art. in view of possible modifications, it will be 
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appreciated that the scope of the present invention 
should be determined by reference to the claims appended 
hereto. 
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Appendix I -PRIMARY FUNCTION TABLE 



NERCTST5 

SELECT 

Topic 

MI-XCRIPT 

Topic 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10. 
11. 
12. 

Subroutines 



1 
2 
3 
4 



5 
6 
7 
8 



Topic 

13. 

14 

15. 

16. 

17. 

18. 

19. 
20. 
21. 
22. 
23. 
24. 

File 1 
File 2 
File 3 
File 4 
Files 



MIDAS MENU SYSTEM 
Description 



COMADATA; 

COMAMORE: 

COMAMOR2: 

DEFAULT 

NotAuth: 

Not Open: 

Invalid : 

Return 

Process 

Choice 

Offuse 

Xctlto : 



MMS 10/19/98 
DI6V 
Group. 



14:01:16 $B03 



Auto?: XCTL To RAMIOROO 

Auto?: Link To 

Start 

GATA MSYS 
Update?: N 
Student: Y 
Targ/Hdme: 

Not Available 
Phase(s) T 
Check Holds Y Owner RA 
Check PINY MI-PIN 



CRDBI2 



Always Go 
Entry 
Notfnd 



Control 

Chain 
To 



Required: 

C:Prog 



OK 
Log? 



Cost 00000 



ERR 



1 Sess-2 



128.227.75,2 



PRT 
4/2 



NERCTST5 
SELECT 
Topic 

MI-XCRIPT 

Title: FUN Transcript 
style=isis 
<! -MI-XCRIPT — > 
<hr> 

form=MI-GRADES 
form=MI-MENU ' 
</TABLE> 
FORM-MI-DECIDE 



Appendix II - PRIMARY WEB PAGE FORMAT 

MIDAS 
Description 

Owner: RA 



TEKT INPUT MTE 10/19/98 14:01:21 B03 

TOP 001 TOTAL LINES 008 DI6W 

Control Dark Entry? 



Text 



4-© 



PRT 

1 Sess-2 128.227.75.2 5/2 

Appendix III - WEB PAGE FORMS & STYLES 



NERCTST5 
SELECT 
Topic 

MI-XCRIPT 
Title: 



M.Lus mn-*5E-eTs 
TOP 001 

Description 



MOB 10/19/98 14:01:24 $B03 
TOTAL LINES 009 DI6W 
Control Dark Entry? 

FORM 
Owner: RA 

Text 

<! MI-XCRIPT > 

<FORM METHOD= M post" ACTION='7cgi-bin/cgiwrap/mlucas/nrvana M > 
<INPUT TYPE=hidden H NAM E="M D ASTR AN " VALUE="MI-XCRIPr> 
STATEKEY 

<INPUT TYPE^'IMAGE" ALIGN= H MIDDLP 
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SRC =, 'http://wvvw.isis.ufl.edu/wf(rnages/buttori.gif' 

NAME="Transcripts M > 

</form> 

Transcripts 

PRT 

4-© 1 Sess-2 128.227.75.2 5/2" 

Appendix IV ~ DATA ACCESS. EDITS AND LAYOUT DEFINITIONS 



NERCTST5 

SELECT 

Program 

RAM10V00 

Upd/Lst: 

Typ(BSF): 

Blank Segs? 

Seq FLD 
005 INPT 
010 DESC 
015 CTRL 
020 ~ 
025 TITL 
030 — 
035 LINE 
040 — 



MIDAS MODULE GENERATOR 



Description APPID 
MIDAS TEXT MTEX 
U C/M (CMB) Fixed? 
SC Typ Used? 
Align: 

Ed Key H 
UMOutLnOff SHS 



YY 


10 000 H 1 




10 


YY 


40 H 




40 


YY 


10 H 




10 




Y 01 


H 




Y Y 


30 H 




30 




Y 01 


H 




YY 


79 S 




79 


Y 


01 S 




01 



MID 10/19/98 14:32:21 
008 001 I7F 
DelFId Lins:10 Max Segs: 146 
LINE Qlins: 200 HedLen: 0449 
Log?: LinLen: 100 SC-Offset: 0447 
Inseg?: 2 Limit 100 SegLen: 0079 

C T LV-Offset: 0000 

oBase Edits yO B DTFId 
' Key NR##? p Ln GR L P B Off Header 

00 0 S 0001 MIDAS Text 
00 0 D 001 1 Description 
00 0 D0051 Control 
01 00 0 E 
00 0 S 0247 Title 
01 00 0 E 
00 0 S 0000 = 
00 0E 



$B03 



1 Sess-2 



128.227.75.2 



4/2" 



Appendix V - WEB PAGE OBJECTS 



PRT 



TXT 10/19/98 15:24:37 SB03 
KN 



NERCTST5 GATATEXT 
SELECT 

GATA TEXT KEY 
GEN-ADD-7 

TEXT 

7. SECTION mm is a DUPLICATE of SECTION @@@@. 

You must drop @@@@ before adding another section of this same course 

CALL SUBROUTINE SCHED 



4-© 



1 Sess-2 



128.22775.2 



PRT 

4/2" 
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Appendix A 

TSO FOREGROUND HARD 

DSNAME RA-PATENT (RAMIOOOO) 

* RAMIOOOO TITLE 'READ FROM CICS TCPIP AND WRITE RECORDS TO A TD QUEUE' 

* ALL INFORMATION IN THIS DOCUMENT, INCLUDING THE TRANSPORT 

* MECHANISM AND PROTOCOLS, ARE COPYRIGHT 1998 BY THE 

* UNIVERSITY OF FLORIDA. ALL RIGHTS RESERVED. 

SUBROUTINE RAMIOOOO 



FUNCTION: 

READ A TCPIP SOCKET STREAM ORIGINATED FROM A CLIENT 
DETERMINE PROPER FUNCTION TO PERFORM 

LINK OR XCTL TO APPROPRIATE PROGRAM TO PERFORM THAT FUNCTION 
RESPOND TO CLIENT WITH THE RESULTS 

COPY RARAMI1S 

COPY RAMICOMM 

COPY RARAMDAS 

COPY RARAMMEN 

USING RARAMMEN, R2 

COPY RARATCPB 
USING RARATCPB.R12 

RAQUELEN EQU 32000 
DSECT 

RAQUEUE DS CL(RAQUELEN) 

COPY REGISTER DEFINITION 
COPY RARAREGS 

DYNAMIC STORAGE 

DFHEISTG 





COPY 


RARASPAD 


MIDASSTE 


DS 


CL8 


PEEKFLAG 


DS 


F 


TEMPMVAR 


DS 


F 


TEMPMVLN 


DS 


F 


OPTVAL 


DS 


OD 


OPTVONOF 


DS 


F 


OPTVLEN 


DS 


F 


OPTLEN 


DS 


F 


OPTNAME 


DS 


F 


TIMEOUT 


DS 


OD 


TIMEOUTS 


DS 


F 


TIMEOUTM 


DS 


F 


*SNDMASK 


DS 


D 


*SNDMASK 


DS 


D 


*SNDMASK 


DS 


D 


*RETMASK 


DS 


D 


•RETMASK 


DS 


D 


*RETMASK 


DS 


D 


RSNDMASK 


DS 


F 


WSNDMASK 


DS 


F 


ESNDMASK 


DS 


F 


RRETMASK 


DS 


F 


WRETMASK 


DS 


F 


ERETMASK 


DS 


F 


MAXSOC 


DS 


F 
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PCT/US99/28321 ~ 



FLAGS 


DS 




F 


DS 


OF 






NAME 


DS 


CL16 




NFAMILY 


DS 


H 




NPORT 


DS 


H 




NADDRESS 


DS 




F 


NDZERO 


DS 




XL8 


CLNTHNOL 


DS 


H 




BUF 


DS 


CLIZO 




Ct4TLBUF 


DS 




CLI20 


PHASE 


DS 




C 


PASSXCTL 


DS 


CL8 




SAVETOPC 


DS 


CL10 






uo 






IDENT 


DS 




OCL16 


INITMVSA 


DS 




CL8 


(NITADSN 


DS 




CL8 


PROCESS 


DS 




CL10 


SAVEFICE 


DS 




CL6 


TCPSVI4 


DS 




F 


TOTLQLEN 


DS 




F 


GOTONE 


DS 




C 


FACTS REQ 


DS 


C 




FACTWAIT 


DS 




C 


SVN BYTES 


DS 


F 




SAVER 14R 


DS 




F 


MAXITEMS 


EQU 


90 




ITEMLEN 


EQU 


6 




QUEADDRS 


DS 




CL 


EJECT 









FLAGS FOR SOCKET CALLS 

SOCKET ADDRESS 
TCP/IP ADDRESSING FAMILY 
PORT DESCRIPTION 

IP ADDRESS 

RESERVED (MUST BE ZEROS) 
SOCKET DESCRIPTOR OF CLIENT MACHINE 
BUFFER FOR SOCKET READ/WRITE 

CONTROL BUFFER FOR SOCKET READ 



SAVE SIZE OF BUFFER FOR SOCKET READ 
SAVE REG 14 FOR BAL 



((MAXITEMS)*(ITEMLEN)) 

TITLE 'READ FROM CICS TCPIP AND WRITE RECORDS TO A TD QUEUE' 
PROGRAM RAMIO0OO STARTS HERE 
RAMI0000 DFHEIENT CODEREG=(7,8) 
RAMIO000 AMODE 31 
RAMI0000 PMODE ANY 

EXEC CICS HANDLE CONDITION DSIDERR(ERROR) x 
ERROR(ERROR) TERMIDERR(ERROR) SYSIDERR(ERROR) x 
ISCINVREQ(ERROR) INVRIQ(ERROR) lOERR(ERROR) x 
DISABLED(ERROR) ILLOGIC(ERROR) LENGERR(ERROR) x 
NOTAUTH(ERROR) NOSTG(ERROR) 

EXEC CICS HANDLE CONDITION NOTFND(NOTFND) NOTOPEN(NOTOPEN) 

EXEC CICS ASSIGN STARTCODE(CODE) 
CLC CODE^C'SD' 
BNE RETURN 



MVC CONSTANT,CL8'DFHEIST 
MVC PGRMNAM =CL8'RAM10000' 



STORAGE LABEL 
PROGRAM NAME 



RECIEVE INPUT FROM CICS TCPIP LISTENER 



A000 EQU 

MVC TCPINLEN =AL2(TCPIN$) 
EXEC CICS RETRIEVE INTO(TCPINPUT) LENGTH(TCPINLEN) 
NONANDLE 
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CLC TCPINLEN =AL2(TCPIN$) COMPARE LENGTH 
BNE PROGERR BAD COMMAREA 



MVC SAVENOPE, BLANKS 
DOTEST MVC DATAAREA, DATAAREA 
GET MAIN STORAGE FOR COMMAREA AND RAMDAS FILE 



SR 

LA 

AH 

STH 

SR 

LA 

AH 

XC 

XC 

LA 

BAL 

L 

BCTR 

LTR 

BM 

EX 

BH 



R14.R14 CLEAR REG 

R14.COMAHDRL GET CO"IAREA LENGTH 

R14 =HW CHANGE THIS ONE ONLY 
R14.COMLTH 

CLEAR REG 

GET LENGTH FOR TOP OF MDAS 
ADD TO GET TOTAL NEEDED 
CLEAR RETURN CODE 
CLEAR AREA 
ADDRESS OF AREA 

GET MESSAGE 



R14-R:L4 
R14-MDASL 
R14.COMLTH 
RETCODE.RETCODE 
BUF.BUF 
R6.BUF 

RHGETRESPA 



R14.RETCODE 

R14.0 

R14.RI4 

NODATA 

R14-BUFBLANK 

ERROR 



COMPARE TO BLANKS 



NODATA 



TESTAREA 



EQU 




BAL 


R14.SENDSEND 


BAL 


R14.READSKT 


CU 


FACTSREQ.C'Y' 


BE 


TESTAREA 


CLC 


DATAAREA(4),CTEST' 


BNE 


NOTTEST 


EQU 




MVC 


DATAAREA, DATAAREA 



CHECK TO.SEE IF THIS IS A CALL FOR INFORMATION ONLY 

NOTTEST EQU * 
STATEMGT EQU * 

EXEC CICS LINK PROGRAM 'RAM 0300' ) COMMAREA(RARAMDAS) x 
LENGTH(CMLENGTH) 
BE CHKWAIT YES, CHECK TO SEE CLIENT IS WAITING 

CLI COMAPROF.C'P' IS THIS A RESPONSE TO A REQUEST? 
BE FACTCLOS YES, RESPOND & CLOSE 



CLC COMAMESS(6),CVERIFY' BLANK 

BNE READ2ND 

* 

CLC COMATOPL.COMATOPC 
BE CHECKEM 

NORESOUR MVC COMATOPC(10),C'MI-NORESRC' 
B READ2ND 

CLC BUF(9).C'CLOSE' CLOSE? COMMENTED OUT 
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BNE SOCKERR 



NO, ERROR ERROR, OK 



MVC SOCFUNC,CLI6'CLOSE 

CALL EZASOKET,(SOCFUNC,CLNTHNDL, 

ERRNO t RETCODE) t 

VL,MF(E,PARMLIST) 



CLI FACTSREQ.CT 
BE READ2ND 



SOCKET FUNCTION = CLOSE 
x 

X 



IS THIS AN INITIAL OUTSIDE REQUEST? 
YES. PROCESS REQUEST 



MVC TEMPMVLN.COMAMVLN 



SAVE WRITE LENGTH 



PQUELOOP 



MVC COMAQADD.COMAMVAR 
EQU * 



B 



SET WRITE FROM ADDRESS 



MVC COMAQLENJEMPMVLN+2 SET WRITE LENGTH 



PQUELOOP 



GO WRITE ANOTHER QUEUE 



ENDQLOOP EQU * 

EXEC CICS DEQ RESOURCE(COMAPQNM) LENGTH(8) 



YES, MOVE TARGET 
SAVE FICE IN COM MAR EA 
IS THERE A FICE CODE? 



BE MOVETARG 
MVC SAVEFICE.COMAFICE 
CLC COMAFIC1, BLANKS 
NOQUE MVC COMAPQNM.COMAMQNM 

MVI COMAPQNM,C'=' 
EXEC CICS LINK PROGRAM(COMAPROG) COMMAREA(COMMAREA) 
LENGTH(COMACOML) 
B PROGLINK 



READMEN EQU 

MVC DONETOPC.COTIATOPC 
EXEC CICS READ DATASET('RAMMEN') SET(RZ) LENGTH(HALFWORD) X 
RIDFLD(COMATOPC) 

MVC COMAOFLI.MMENOFL1 

MVC COMAMLDS.MMENNAME 

MVC COMAS003.MMENS003 

MVC COMAS004.MMENS004 

MVC COMAS005.MMENS005 

MVC COMAS006.MMENS006 

MVC COMAS007.MMENS007 

MVC COMAS008, MMENS008 



BR 

VERIFYEQU 
CLI 
BNE 
MVC 



R4 



MMENPASS t CT 
CKHOLDS 

COMAVERI t MMENPKEY 



B READ2ND 



MVC COMAIBFN, BLANKS 
MVC COMACOLR, BLANKS 
EXEC CICS LINK PROGRAM(COMAPROC) COMIMAREA(COMMAREA) 
LENGTH(COMACOML) 
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IF THIS IS PROCESSING A WAITING REQUEST, FACTWAIT=Y FACTSREQ=Y 
USE2 PACK DOUBLE t COMAIBFN(2) 
DECR SP DOUBLE,*PT 
CVB R1 .DOUBLE 
MH RI/H/10' 
AR R14.R1 
CLC 0{10,R14), BLANKS 



SENDSEND EQU 



ST R14,SPADSV14 
A010 EQU * 
L R14..SPADSVI4 
BR R14 
READSKT EQU 

ST R14.SPADSVI4 

READ RECORD FROM TCPIP SOCKET 

CLC RETCOD =F'0' ANYMORE BYTES 

BE SOCKERR TCP/IP ERROR NO, GO CLOSE SOCKET 

CHECK DIFFERENCE BETWEEN WHAT WAS EXPECTED AND WHAT WAS RECEIVED 



L 

S 

LTR 
MOVENUM 
CHKNUM 
A21 

L 

BCTR 
LTR 
PUTRQST 



A025 



R14.NBYTES LOAD EXPECTED LENGTH 

R14.RETCODE GET DIFFERENCE 

R14.R14 TEST REGISTER 

MVZ NUMBCHECK(*-),WKLEN CHECK TO SEE IF NUMERIC 
CLC NUMCHECK(*-*),NUM20NE CHECK TO SEE IF NUMERIC 
EQU * 

MVC N BYTES , = A( L WKLE N ) LENGTH OF AREA 

R14.NBYTES 

R14.0 

R14,R14 

MVI FACTSREQ.C'Y 
MVC SOCKFUNC,=CL16'RECV 
MVC PEEKFLAG=F0' 
LH R14=H'10' 
EQU * 

STH R14.RECCOL.,. SAVE RECV COUNTER 
CALL EZASOKET,(SOCFUNC,CLNTHNDL PEEKFLAG, 



MARK AS REQUEST AND 
SOCKET FUNCTION = READ 
SET TO PEEK AT DATA 



BNP 

ST 

B 



SOCKERR 

R1.NBYTES 

A025 



IF NOT POSITIVE, ERROR 
NUMBER OF BYTES NEEDED 



WAIT FOR CLIENT TO RESPOND 



DORECVL . EQU * 

XC RSNDMASK.RSNDMASK (NIT FIELDS 

XC WSNDMASK.WSNDMASK 

RRETMASK,WRETMASK,ERETMASK, 

x 

ERRNOPRETCODE), 

x 

VL,MF=(E,PARMLIST) 
L RI.RETCODE 
C RL,=P0' 
BL SOCKERR 
LH R14.RECCOUNT 
BCT R14.A025 
B SOCKERR 



POSITIVE RETURN CODE 
NO. MUST BE AN ERROR 

RESTORE LOOP COUNTER 
GO ASK FOR MORE 

LOOPED MAX TIMES, ERROR 
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B020 EQU * 

B READTEXT 

NOTOPEN EQU * 
CLC SAVENOPE, BLANKS 
BH PUTNOPE 

MVC CCMATOPC(10)=C*NOTOPEN * 
B READTEXT 
PUTNOPE MVC COMATOPC.SAVENOPE 
B READTEXT 

SOCKERR EQU * 

MVC COMATOPC(10)=C'SOCKERR ' 
B READTEXT 

NOTFNDT EQU * 

B ERROR 

NOTFND EQU * 

CLC COMAREGN, BLANKS 
BH PUTNOTF 

MVC COMATOPC(10)=C'NOTFOUND ' 
B READTEXT 
PUTNOTF MVC COMATOPC.COMAREGN 
B READTEXT 

PROGERR EQU * 

MVC COMATOPC(10)=C'PROGERR ' 

BE ERROR2 NO, GO TO ERROR 

READQ EQU * 

CLl COMAPROF.C'S* FACTS RESPONSE 
BNE NOPROC 

EXEC CICS LINK PROGRAM('RAMIISOO') COMMAREA(COMMAREA) x 
LENGTH(COMACOML) 
LA R0 t * MOVE NULLS TO AREA 
LA R14.QUEADDRS 
SR R1.R1 

L 15=A(L'QUEADDRS) 
MVCL R14.R0 

XC TOTLQLEN.TOTLQLEN 
READQ AG N EQU * 

EXEC CICS LINK PROGRAM('RARASOKY') COMMAREA(COMMAREA) 

LENGTH(COMACOML) 
_ *-H R14.COMAQITE LOAD CURRENT ITEM NUMBER 

MVC SOCFUNC =C 'SELECT SOCKET FUNCTION ^SELECT! 
CALL EZASOKET,(SOCFUNC,MAXsoc,TIMEOUT 
BE GETRBCK NO. GO BACK 

CALL EZACIC05,(BUF 1 NBYTES),VL,MF=(E,PARMLIST) TRAN 2 EBCDIC 

GETRBCK EQU 

RETURN EQU 

EXEC CICS RETURN 

EJECT 

TITLE 'ABENDS' 
COPY RAMIGETP 
QUEUEERR EQU 

MVC ABCODE+2 =C'QU' INITIAL TSQUE READ ERROR 
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MVC BUF.MSGZOOB ERROR MESSAGE FOR CLIENT 

MVC N BYTES =A(L'MSGZOOB) LENGTH OF ERROR MESSAGE 

B ZOO ABEND 

PROGERR EQU 

nrwc ABCODE+2 =C'PR' PROGRAM LOGIC ERROR 
MVC BUF.MSGZOOL ERROR MESSAGE FOR CLIENT 

MVC NBYTES=A(L MSGZOOL) LENGTH OF ERROR MESSAGE 
B ZOO ABEND 
SOCKERRB EQU 

MVC ABCODE+2 =C'SO TCP/IP SOCKET ERROR 
MVC BUFMSGZOOS ERROR MESSAGE FOR CLIENT 

MVC NBYTES =A(LMSGZOOE) LENGTH OF ERROR MESSAGE 
B ZOO ABEND 
NOTFNDT EQU 

MVC ABCODE+2 =CTX' TCP/IP SOCKET ERROR 

MVC BUF, MSGZOOT ERROR MESSAGE FOR CLIENT 

MVC NBYTES,=A)L'MSGZOOT n LENGTH OF ERROR MESSAGE 

B ZOOO ABEND 

NOTFND EQU 

MVC ABCODE+2 =C*NF' RECORD NOT FOUND 

MVC BUF.MSGZOON ERROR MESSAGE FOR CLINT 

MVC NBYTES,=A(L'MSGZOON) LENGTH OF ERROR MESSAGE 

B ZOOO ABEND 

ZOOO EQU 

B ZO10 

ST R14.ABR14 SAVE LAST RETURN ADDRESS 

USING DFHEIBLK.R14 SET EIB DSECT BASE 

L R14.DFHEIBP LOAD EIB ADDRESS 

MVC ABRESP.EIBRESP SAVE LAST RESPONSE CODE 

DROP R14 DROP EIB DSECT BASE 

MVC ABCODE (2),PGRMNAM+4 SET UP ABEND CODE 

EXEC CICSDUMP 

DUMPCODE(ABCODE) 

PROGRAM STORAGE TASK TERMINAL 
SPACE 2 

SEND ERROR MESSAGE TO THE CLIENT MACHINE 

Z010 EQU 

MVC SOCFUNC =CL16'SEND' SOCKET FUNCTION=SEND 
MVC FLAGS =F'0' CLEAR FLAGS VARIABLE 

CALL EZACIC04,(BUF,NBYTES),VL,MF=(E,PARMLIST) TRANS. TO ASCII 
SPACE 

CALL EZASOKET, (SOCFUNC, CLNTHNDL, FLAGS, 
NBYTES.BUF.ERRNO.RETCODE), 
VL, MF=(E, PARMLIST) 
SPACE 2 

B EZACLOSE GO CLOSE TCPIP SOCKET AND EXIT 
SPACE 2 

TITLE 'CONSTANTS AND LITERALS' 
DS OF 

PACKONE DC PL4T PACKED DECIMAL ONE 
BLANK DC X'40* 



BLANKS 


DC 


CL120* 


ZEROS 


DC 


CL30'0' 


CKTR 


TR 


COMATOPCC-*), UPCASE TRANSLATE TO UPPER CASER 


CASE 




UPCASE 


DC 


X'000102030405060708090AOBOCODOEOF' 




DC 


X'101112131415161718191A1B1C1D1E1F' 




DC 


X'202 1 22232425262728292A2B2C2D2E2F* 




DC 


X'303132333435363738393A3B3C3D3E3F' 




DC 


X'404142434445464748494A4B4C4D4E4F' 
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DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DS 

UQUEFX DC 
MAX_SECONDS 
FIONBIO DC 
SO_REUSEADDR 
SO KEEPALIVE 
SO„BROADCAST 
SOJ.INGER 
SO_SNDBUF 
SO_ERROR 
SO_TYPE 
NUMZONE DC 
MAXWRK 
MAXRLEN 
MAXTIMES DC 
FILEMSG DC 
OKMSG DC 
RECOKMSG DC 
WAITMSG DC 
MSGZ00A DC 
MSGZOOB DC 
MSGZ00C DC 
MSGZ00D DC 
MSGZ00E DC 
MSGZOOF DC 
MSGZ00G DC 
MSGZ00H DC 
MSGZ00L DC 
MSGZOON DC 
MSGZOOT DC 
MSGZ00O DC 
MSGZOOP DC 
MSGZOOS DC 
MSGEND EQU 

LTORG 
END 



X , 505152535455565758595A5B5C5D5E5F , 

X'606162636465666768696A6B6C6D6E6P 

X707 1 72737475767778797A7B7C7D7E7P 

X'80C1C2C3C4C5C6C7C8C9A88B8C8D8E8F' 

X'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F' 

X'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF' 

X'B0B1B2B3B4B5B6B7B8B9ABBBBCBDBEBF' 

X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECP 

X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF' 

X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEP 

X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF' 

OH 

CL2'LDTD QUEUE PREFIX 

DC F'0000000' 

XL4'8004A77E' 

DC P00000004' 

DC F00000008' 

DC F'00000032' 

DC F00000128* 

DC F00004097' 

DC F'00004103' 

DC F'00004104' 

CL28'0000000000000000000000000000* 
DC F'32767' MAXIMUM RECORD LENGTH 

DC H'32717' MAXIMUM RECORD LENGTH 

H'10' MAXIMUM SENDS 

C'OKTOSEND' MESSAGE TO START SENDING DATA 
C'GOTFILEOK' SUCCESSFUL MESSAGE 

CL9'GOTDATAOK' SUCCESSFUL RECORD MESSAGE 
C'WITING FOR RESOURCES ON MAINFRAME... 'WAIT MESSAGE 



C'ERROR; 
C'ERROR 
C'ERROR 
C'ERROR 
C'ERROR 
C'ERROR 
C'ERROR 
C'ERROR 
C'ERROR 
C'ERROR 
C'ERROR 
C'ERROR 
C'ERROR 
C'ERROR: 



RAMI0000 



COMMAREA LENGTH ERROR' 
TSQUE READ ERROR' 
CFTR TSQUE READ ERROR' 
LDL115P (EBCDIC->ASCII) ERROR' 
CICS ERROR* 

ONILOG VSAM WRITE ERROR' 
TSQUE WRITE ERROR' 
TRANSIENT DATA QUE ENQ PROBLEM' 
PROGRAM LOGI ERROR' 
MMEN ENTRY NOT FOUND 
YOUR SESSION HAS TIMED OUT' 
MMEN FILE NOT OPEN' 
BAD RECORD LENGTH' 
TCP/IP SOCKET ERROR' 



CLC RETCODE =F"0' ANYMORE BYTES 

BE SOCKERR TCP/IP ERROR NO, GO CLOSE SOCKET 

CHECK DIFFERENCE BETKEEN WHAT WAS EXPECTED AND WHAT WAS REC'VD 

L R14.NBYTES LOAD EXPECTED LENGTH 
S R14, RETCODE GET DIFFERENCE 
LTR R14.RI4 TEST REGISTER 

MOVENUM MVZ NUMCHECK(*-*),WKLEN CHECK TO SEE IF NUMERIC 
CHKNUM CLC NUMCHECK(*-*),NUMZONE CHECK TO SEE IF NUMERIC 

A021 EQU * 
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MVC N BYTES . = A( L' WKL EN ) LENGTH OF AREA 
L R14.NBYTES 
BCTR R14.0 
LTR R14.R14 

PUTRQST MVI FACTS REQ.C'Y' MARK AS REQUEST AND 

* 

MVC SOCFUNC =CL16 *RECV SOCKET FUNCTION = READ 
MVC PEEKFLAG,=F'0' SET TO PEEK AT DATA 
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APPENDIX B 



TSO FOREGROUND HARDCOPY 
DSNAME=RA.PATENT (RAMI0100) 
DATA SET RAMI0100 

ALL INFORMATION IN THIS DOCUMENT, INCLUDING THE TRANSPORT MECHANISM AND 
PROTOCOLS, ARE COPYRIGHT 1998 BY THE UNIVERSITY OF FLORIDA ALL RIGHTS 
RESERVED 

SUBROUTIN RAMI0100 

FUNCTION: 

ROAD, COMPRESS AN INCOMMING DATABLOCK. 
ADD ADITIONAL FORMATIING AS DEFINED BY MTEX RECORD 
WRITE NECESSARY TS QUEUES 



1. RAMI0100 


FILE RECORD SECT 




COPY 


RAMICOMM 


SUBROUTIN COMMAREA 


USING 


COMMAREA, RS 




COPY 


RARAMMEN 


SUBROUTINE COMMAREA 


USING 


RARAMMEN.R9 




COPY 


RARAMSTY 


SUBROUTINE COMMAREA 


COPY 


RARAMTEX 


SUBROUTINE COMMAREA 


USING 


RARAMTEX.R7 




USING 


MTEXS.R2 




MAXAREA 


EQU 32767 




DATAAREA 


DSECT 





2. WORKING STORAGE 

COPY DFHAID 3270 AID CHARACTERS 

SPACE 

COPY RARAREGS REGISTER EQUATES 

EJECT 

DFHEIST DSECT COMMAREA DSECT 

SCRATCH PAD AREA 



DOUBLE 


DS 


D 


FWORD 




DS 


SAVEQADD 


DS 


F 


SAVER 12 


DS 


F 


DATAQADD 


DS 


F 


DATAQLEN 


DS 


H 


KEEPQADD 


DS 


F 


KEEPQLEN 


DS 


H 


SAVEQLEN 


DS 


H 


HALFWORD 


DS 


H 


SAVEMAX 


DS 


H 


QREWRT 


DS 


C 


READTEXT 


DS 


C 


NEEDPRE 


DS 


C 


GOTNIRV 


DS 


C 


BEENHERE 


DS 


C 


REGID 


DS 


CL4 


SPADSKEY 


DS 


CL30 


STYLTYPE 


DS 


C 


BALWRITE 


DS 


C 


AFTHEAD 


DS 


C 



EJECT 

PROGRAM RAMI100 STARTS HERE 

RAMI0100 DFHEIENT CODEREG=(3,8), DATAREG=(13) 
RAMI0100 AMODE 31 
RAMI0100 RMODE ANY 
SPACE 

CLC EIBCALEN.=H'0' 
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GET COMMAREA 



BE RETURN 
L R5.DFHEICAP 
SPACE 

EXEC CICS HANDLE CONDITION DSIDERR(ERROR) 

ERROR (ERROR) TERMIDERR(ERROR) SYSIDERR(ERROR) 
ISCINVREQ(ERROR) INVREQERROR) lOERR(ERROR) 
DISABLED(ERROR) ILLOGIC(ERROR) LENGERR(ERROR) 
NOTAUTH(ERROR) 
EXEC CICS HANDLE CONDITION NOTFND(NOTFND) NOTOPEN(NOTOPEN) 
DEBUGDEBUGDEBUGDEBUG 

CLC COMATOPC(10) =C'XXXXXXXXXXXXX' 
BNE AFTDBUG1 
DEBUG1 B AFTDBUG1 

AFTDBUG1 EQU 
DEBUGDEBUGDEBUGDEBUG 
FIRST EQU 

CLI COMAPROF.C'S' 

BE AFTFIRST 

MVC COMAQITE=HT 

MVC COMAQ2DO =C'DELETE ' SET TO DELETE QUEUE 

MVC COMAQKEY.COMAMQNM SET TS QUEUE NAME 

EXEC CICS LINK PROGRAMS RARASOKY') COMMAREA(COMMAREA) 
LENGTH(COMACOML) 

AFTFIRST EQU 

USING MTEX.R2 

CLC MTEXLINE(5) =C'STYLE* 

BE MTEXLOOP 

CLC MTEXLINEfS^C'STYLE' 

BE MTEXLOOP 

CLC MTEXLINE(4)=C'FORM' 

BE MTEXLOOP 

CLC MTEXLINE(5)=C'<BODY' 

//www.isis. ufi.edu/wfi mages/I ogo2.gif '></td><h3>' 
MVC 95(50,R12),MTEXNAME 
MVC 145(27,R12)=C , </h3></td></t^></tab!e><hr> , 
MVI 172(R12),X'25* 
MVC 173(05,R12) =C*<PRE>' 
MVI 178(R12),X*25* 
LA R12,179(R12) 
MVI NEEDPRE.C'Y* 
CLC MTEXLINE(4)=C'FORM' 
BE MTEXFORM 
CLC MTEXLINE(10)=C'#########' 
- BNE NOTDATA 
CLI COMAMI01,C*Y' 
BE AFTDATA 
SR R15.R15 
LH R1.DATAQLEN 
LR R14.R12 
LR R15.R1 
MVCL R14.R0 
AH R12.DATAQLEN 
ST R12.SAVER12 
MVC COMAQADD.r QADD 
AFTDATA LA R2,MTEXLEN(R2) 
BCT R6, MTEXLOOP 
B AFTERTEX 
NOTDATA EQU 

CLC MTEXLINE(08)=C'MDASTRAN' 

BNE NOTTRAN 

CLC COMATOPC, BLANKS 
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BNH 


BCTMTEX 




MVC 


0(79,R12),MDASTRAN 




MVC 


0(79,R12),CACHLINE 




MVC 


44(8,R12),COMAMQNM 




MVI 


79(R12),X'25' 




B 


BCTMTEX 


NOTNIR 


EQU 






MVC 


0(79,R12), MTEXLINE 




MVI 


79(R12),X , 25 l 


BCTMTEX 


EQU 






LA 


R2,MTEXSLEN(R2) 


STYLE 


EQU 






EXEC 


: CICS HANDLE CONDITION NOTFND(NOTSY)NOTOPEN(NOSTY) 
DISABLED(NOSTY) 




LA 


R14.9 




EX 


R14.CKTR 




B 


TITOVER 


TITBCTLA 


R15,1(R15) 




BCT 


R1 TITLOOP 


TITOVER 


EQU 


NOSUBS 


EQU 






CLC 


MSTYLINEf8} =C'MDASTRAN' 




BNE 


CKNIRV 




CLC 


COMATOPC, BLANKS 




BNH 


BCTMSTY 




MVC 


0(79 ( R12), MDASTRAN 




MVC 


0(79,R12),CACHLINE 




MVC 


44(8 l R12),COMMAMQNM 




MVI 


79(R12) f X , 25' 




B 


BCTMSTY 


NOTNIR V 


EQU 




CKBUTT 


CLC 


MSTYLINE^C'MBUTTON' 




BNE 


NOTMBUTT 




MVC 


0(41,R12),-C , gif><input type= "hidden" names ^MDASTRAN" 1 




MVC 


41(27.R12) =C value="XX- "></form>* 




MVC 


49(10,R12),SPADSKEY 




MVI 


68(R12),X*15' 




LA 


R12,80(R12) 




B 


BCTMSTY 


NOTMBUTT 


EQU 






SR 


R14.R15 




STH 


R14.COMAQLEN 




BAL 


R4.COMPRESS GO AND COMPRESS THE AREA 


AFTTEXT 


EQU 






L 


R14.COMAQADD 




AH 


R14.COMAQLEN 




MVC 


COMAQADD,SAVEQADD 


COMPRESS 


EQU 


THIS CODE REMOVES THE EXTRA BLANKS 




LH 


R15.COMAQLEN 




LTR 


R15.R15 




BZ 


NOAREA 




BNP 


ERROR 




L 


R14.COMAQADD 


COMPLOOP 


EQU 






CLI 


0(R14),X , 00' 




A 


R0=F'100 
TEST15 


NOTFND 


EQU 






CLI 


BEENHERE, 


NOTOPEN 


EQU 


ERORR 




EQU 
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MVI 


COMAERRF.C'Y' 




CLI 


COMACONT.C'Y' 




BE 


MOVEMI01 




MVI 


COMAMI01.C" 




B 


CLRCONT 


MOVEMI01 


MVI 


COMAMI01.CT 


CLRCONT 


MVI 


COMACONT.C* * 



RETURN 



DEBUGDEBUGDEBUGDEBUG 

CLC COMATOPC(10)=C , XXXXXXXXX I 
BNE AFTDBUG3 
DEBUG3 B AFTDBUG3 
AFTDBUG3 EQU 

DEBUGDEBUGDEBUGDEBUG 

MVC COMAQADD.KEEPQADD 
MVC COMAQLEN.KEEPQLEN 
EQU 

EXEC CICS RETURN 
CONSTANTS AND LITERALS 
CL120* 1 

SPADSKEY(*-),UPCASE TRANSLATE TO UPPER CASE 

X'0001 02030405060708090AOBOCODOEOF' 
X'101112131415161718191A1B1C1D1E1P 
X702122232425262728292A2B2C2D2E2F' 
X'303132333435363738393A3B3C3D3E3F 
X404142434445464748494A4B4C4D4E4F' 
X'505152535455565758595A5B5C5D5E5F 
X'606162636465666768696A6B6C6D6E6F' 
X707172737475767778797A7B7C7D7E7F' 
X'80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F 
X'90D 1 D2D3D4D5D6D7D8D99A9B9C9D9E9P 
X'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF' 
XB0B1B2B3B4B5B6B7B8B9BABBBCBDBEBP 
X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF' 
X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDP 
X*E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF 
XT0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFP 
OH 

CL79'<INPUT TYPE= M hidden" NAME="MDASTRAN M VALUE="#####X 
###"> 

CL79'<INPUT TYPE="hidden" NAME= B MDASSTTE" VALUE=" 
CL79'<INPUT TYPE^hidden" NAME^MDASCACH" VALUE=" 
CL79'<INPUT TYPE="hidden" NAME^MDASNEXT* VALUE^T^' 
CL79'<INPUT TYPE= M hidden" NAME="MDASPRE\T VALUE=T*>' 



BLANKS 


DC 


CKTR 


TR 


UPCASE 


DC 




DC 




DC 




DC 




DC 




DC 




DC 




DC 




DC 




DC 




DC 




DC 




DC 




DC 




DC 




DC 




DS 


MDASTRAN 


DC 


STTELINE 


DC 


CACHUNE 


DC 


NEXTLINE 


DC 


PREVLINE 


DC 



LTORG 



END RAMI0100 



SUBSTITUTE SHEET (RULE 26) 



WO 00/33202 



PCT/US99/28321 " 



39 



APPENDIX C 



TSO FOREGROUND HARDCOPY 
DS NAM E=RA. PATENT 

PROGRAM RAM1 1 BOO 



(RAMI1B00) 



ALL INFORMATION IN THIS DOCUMENT, INDLUCING THE TRANSPORT 
MECHANISM AND PROTOCOLS, ARE COPYRIGHT 1998 BY THE 
UNIVERSITY OF FLORIDA. ALL RIGHTS RESERVED. 

SUBROUTINE RAM1 1 BOO 

FUNCTION: 

RETRIEVE SPECIFIED DATA FROM TCP/IP REQUEST 
DO NECESSARY DATA FORMATTING 
RETURN RESULTS TO CALLING PROGRAM 



SASS MENU INTERFACE 



COPY RACL0001 
COPY RARAREGS 



COMMAREA STARTS HERE BASE REG IS R5 

COPY RAMICOMM COPY COMMAREA DSCET 

USING COMMAREA.R5 

FILE DESECT STARTS HERE BASE REG IS R9 



QLINES 

QLINELEN 

TSL 



EQU 
EQU 
EQU 



100 
140 

5 



USING COMMAREA, R5 
WORKING STORAGE 
DFHEISTG DSECT COMMAREA DSECT 

SCRATCH PAD AREA 



FINDFLDT 


DS 


CL256 


DOUBLE3 


DS 


D 




DS 


OD 




DS 


F 


ANSWER 


DC 


F'0' 


DIVIDEND 


DS 


OD 



00010000 

00011013 

00011113 

00011213 

00011313 

00011413 

00011513 

00011613 

00011713 

00011813 

00011913 

00012013 

00012113 

00012213 

00012313 

00012413 

00012513 

00012713 

00012813 

00012913 

00013013 

00020000 

00030000 

00040000 

00041000 

00042000 

00043000 

00044000 

00045000 

00046000 

00047000 

00048000 

00049000 

00050000 

00060000 

00070000 

00080000 

00090000 

00100000 

00110000 

00120000 

00130000 

00140000 

00141000 

00142000 

00143000 

00144000 

00144100 

00144200 

00144300 

00144400 

00144500 

00144600 
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QUOTIENT 


DS 


F 


REMAINS 


DS 


F 


DIVISOR 


DS 


F 


MESS 


DS 


CL79 


THISSEG 


DS 


PL3 


CHAR9 


DS 


CL9 


FLDLEN 


DS 


F 


SV01 


DS 


F 


SV014 


DS 


F 


SV015 


DS 


F 


SAVE6 


DS 


F 


DEC01 


DS 


F 


DEC14 


DS 


F 


DEC 15 


DS 


F 


SIGDIGDS 


F 




FOUNDIT 


DS 


C 


GOTDEC 


DC 


C 


GOTSIG 


DS 


C 



RAMI1BO0 
RAM1 1 BOO 
RAM1 1 BOO 



GETDATA 



NOTSEG1 



COPY RARASPAD 

PROGRAM RAMI1BO0 STARTS HERE 
DFHEIENT CODEREG=(3 ( 8,7),DATARAEG=(13) 
AMODE 31 
RMODE ANY 



CLC 
BE 



EIBCALEN,=H'0' 
RETURN 



EXEC CICS HANDLE CONDITION ERROR(ERROR) 



EQU 

BE 

CP 

BE 

CLC 

BNE 



R5.DFHEICAP 



BCTLLOOP 

COMAUSEG=P'0* 

BCTLLOOP 

14(8,R6)=C'MDASSEGN' 
BCTLLOOP 



PACK THISSEG,22(3R6) 

CP COMAUSEG.THISSEG 

BNE NOTSEG1 

MVI FOUNDIT.C'Y' 

B BCTLLOOP 

MVI FOUNDIT.C'N' 

B BCTLLOOP 



NOT THERE, BUMP A BYTE 
NOT THERE, BUMP A BYTE 



SAVR6 ST R6.SAVE6 



CLI FOUNDIT.C'Y' 

BNE BCTLLOOP 

CLI COMADECP.C'O' 

BNH QUEMATCH 

ST R1.DEC01 

ST R14.DEC14 

ST R15.DEC15 



ANY DECIMAL PLACES? 
NO, SKIP 



SAVE 



REGS 



PACK DOUBLE2.COMADECPPUT DEC PLACES IN DOUBLE? 



00144800 

00144900 

00145000 

00146000 

00147000 

00147100 

00147200 

00147300 

00147400 

00147500 

00147600 

00147700 

00147800 

00147900 

00148000 

00148100 

00148200 

00148300 

00148400 

00148500 

00148600 

00148700 

00148800 

00148900 

00149000 

00149100 

00149200 

00149300 

00149400 

00149500 

00149700 

00149800 

00450700 

00450800 

00450900 

00451000 

00452000 

00453000 

00454000 

00455000 

00456000 

00457000 

00458000 

00459000 

00460000 

00470000 

00480000 

00490000 

00500000 

00510000 

00520000 

00530000 

00540000 

00550000 

00560000 

00570000 

00580000 

00590000 

00600000 

00610000 
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CLC COMAOLEN.NUMZONE LENGTH 

BE DECEND OK? 

MVZ NUMCHECK(2),COMAOLEN 

CLC NUMCHECK(2),NUMZONE 

BNE DECEND NO, DONE 

PACK DOUBLE.COMAOLEN PUT LENGTH IN DOUBLE 



CP DOUBLE.DOUBLE2 DEC PLACES BIGGER THAN LENGTH 

BH LOK 

MVI COMASERR.CT 

B SAYERROR ERROR 

LOK ZAP SIGDIG.DOUBLE GET NUMBER OF 

SP SIGDIG.DOUBLE2 SIG NUMERIC DIGITS 



FDZON 

FDBCT 

FDERR 
FDOK 



CVB 
ZAP 
LR 

BCTR 

EX 

ZAP 

CVB 

BNP 

CLI 

BE 

CLI 

BL 

LA 

BCT 

B 

MVI 
B 

CVB 

AR. 

CVB 

SR 

BCTR 



REDOUBLE 
FWORD=P'0' 
R14.R1 
R14.0 



PUT DEC PL IN R1 
ZERO COUNTER 
GET DEC PL 
SUB FOR EX 



R14.MOVECH16 

DOUBLE3.FWORD 

R1.DOUBLE3 

FDOK 

0{R15).C ' 

FDBCT 

0(R15),C0' 

FDERR 

R15,1(R15,) 

R1, FDZON 

FDOK 

COMASERR.C'Y' 

SAYERROR 

REDOUBLE FIND 

R14.R1 

R1.DOUBLE2 

R14.R1 

R14.0 



MOVE ZONES 

GET INPUT COUNTER 



DECIMAL 

POINT 



AREA 



LA R15,22(R6) POINT TO INPUT 
CP FWORD.SIGDIG INPUT MORE THAN SIG NUMERIC? 



USEFW 
GOTSD 



BNH 
ZAP 
B 

ZAP 
CVB 
AR 
BCTR 

CVB 
CVB 
SR 
LR 

BCTR 
EX 



USEFW NO USE INPUT COUNTER 

DOUBLE3.SIGDIG GET SIG DIGITS 



GOTSD 
DOUBLE3.FWORD 
R1.DOUBLE3 
R15.R1 



R15.0 

REDOUBLE 

R0.DOUBLE2 

R1.R0 

R0.R1 

R1.0 

R1.BLDEC 



GOON 
GET INPUT COUNTER 
POINT 

TO LAST BYTE 



LR R1.R0 



OF INPUT DATA 

GETPLEN 
GET DEC PTS 
POINT 

TO 

NUMERIC PORTION 
BLANK IT 
RESTORE REG 
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00630000 

00640000 

00650003 

00660000 

00670003 

00680000 

00690000 

00700003 

00710000 

00720000 

00730000 

00731000 

00732000 

00733000 

00734000 

00735000 

00736000 

00737000 

00738000 

00739000 

00740000 

00740100 

00744800 

00744900 

00745000 

00745100 

00745200 

00745300 

00745400 

00745500 

00745600 

00745700 

00745800 

00745900 

00746000 

00746100 

00746200 

00746300 

00746400 

00746500 

00746600 

00746701 

00746800 

00746900 

00747000 

00747100 

00747200 

00747300 

00747400 

00747500 

00747600 

00747700 

00747800 

00747900 

00748000 

00748100 

00748200 

00748300 

00748400 
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MVL 



BCTDEC 



DECEND 



SERROK 
LH R1 



DOPACKED 



DOBINARY 



CLI 


0(R15),C*0' 


DIGIT? 


BL 


BCTDEC 


DONT MOVE 


MVC 


0(1.R14),0(R15) MOVE IN SIG DIGIT 


BCTR 


R14.0 


BUMP 


BCTR 


R15.0 


BACK 


BCT 


R1.MVL 


KEEP GOIN' 


EQU 






CVB 


R1, DOUBLE 


GET PLEN 


BCTR 


R1,0 


FIX FOR EX 


EX 


R1.0CDEC 


MAKE ALL NUMERIC 


EX 


R1.MVCDEC 


MOVE TO R6 


LA 


R14.22(R6) 


BUMP TO 


MVI 


0(R2) 1 C'E , 




B 




ERROR 


EX 


R14.PUTDATAE DO MOVE INTO FINDFLDT 


ALFWORD RESTORE LENGTH OF TARGET FILED 


BCTR 


R14.0 




LTR 


R14.R14 


TEST REGISTER 


BM 


GOBACK 


IF NEGITIVE DONT MOVE IT 


CLI 


COMAFTYP.C'P* 


BE 


DOPACKED 




CLI 


COMAFTYP.C'B' 


BE 


DOBINARY 




EX 


R14.CLCDATA 


CHECK IF DATA HAS CHANGED 


BE 


GOBACK 


NOCHANGE, GOBACK 


EX 


R14.MOVEDATA MOVE DATA INTO TARGET FIELD 


CLC 


COMAFNDF(4) =C'MDAS' 


BE 


GOBACK 




B 


SAYENT 





EQU 

CLI COMASERR.C'Y' 

BE DATADONE 

MVC CHAR9.NUMZONE 

LA R1.CHAR9 

LA R1,9(R1) 

MV2 NUMCHECK{2).COMAOLEN 

CLC NUMCHECK(2),NUMZONE 

BNE FDERR 

CLC COMAOLEN.NUMZONE 

BNE OLOK 

EX R14.PACKDA 

B DATADONE 

EQU 

CLI COMASERR.C'Y' 

BE DATADONE 

MVC CHAR9 t NUMZONE 

LA R1.CHAR9 

LA R1 t 9(R1) 

MVZ NUMCHECK(2),COMAOLEN 

CLC NUMCHECK(2), NUMZONE 

BNE FDERR 

CLC COMAOLEN.NUMZONE 

BNE OLOK2 

MVC COMAOLEN.COMAPLEN 



00748500 

00748600 

00748700 

00748800 

00748900 

00749000 

00749100 

00749200 

00749300 

00749400 

00749500 

00749600 

00749701 

01280000 

01290000 

01300000 

01310000 

01320000 

01330000 

01330100 

01330200 

01330300 

01330400 

01330500 

01330600 

01330700 

01330800 

01330900 

01331000 

01331100 

01331200 

01331300 

01331400 

01331500 

01331600 

01331700 

01331800 

01331900 

01332000 

01332100 

01332200 

01332300 

01332400 

01332500 

01332600 

01334400 

01334500 

01334600 

01334700 

01334800 

01334900 

01335000 

01335100 

01335200 

01335300 

01335400 

01335500 

01335600 

01335700 

01335800 
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OLOK2 PACK DOUBLE2.COMAOLEN 

CVB R2.DOUBLE2 

SR R1.R2 

EX R2.LOADNUMB 

PACK DOUBLEE.CHAR9 

CVB REDOUBLE 

CLC COMAPLEN =C02' 

BNH DOHALF 

DOFULL ST R1,0(R15) 

B DATADONE 

DOHALF STH R1.0(R15) 

B DATADONE 



DATADONE EQU 



SAYENT 

BLNCHECK 

PUTDATAE 

CLCDATA 

MOVED ATA 

LOADNUMB 

PACKDATA 

ERROR 



RETURN 



ASIS DC 

BLANKS 

HEX2ERO 

NUMZONE 

HEXFF 

CKTR 
UPCASE 



MVI COMAENT.C'Y' 

B GOBACK 

CLC 0(*- w ,R6), BLANKS 

MVC FINDFLDT(*-*),0(R6) 

CLC 0(*-*,R15),FINDFLDT 

MVC 0(*-* ( R15) l F!NDFLDT 

MVC 0r-*,R1) t 0(R6) 

MVC Or^RISJ.OCRI) 

EQU 

MVI COMAERRF.C'Y" 

MVI COMASERR.C'Y' 

DS OH 

MVC COMADECP.BLANKS 

EXEC CICS RETURN, 

CONSTANTS 



SFW001 
SFW001 



C'N' Y=NO UPPER/LOWER CASE TRANSLATION 

DC CL256* ' 

DC 30X'00' 

DC 24C0' 

DC 30X'FF' 

TR 0r-*,R6) f UPCASE TRANSLATE TO UPPER CASE 

DC X'000102030405060708090AOBOCODOEOF' 

DC X'lOH^ISUISteiZISIQIAIBICIDIElP 

DC X702122232425262728292A2B2C2D2E2F' 

DC X'3031 32333435363738393A3B3C3D3E3F' 

DC X'404142434445464748494A4B4C4D4E4F' 

DC X , 505152535455565758595A5B5C5D5E5F , 

DC X'606162636465666768696A6B6C6D6E6F' 

DC X707172737475767778797A7B7C7D7E7F' 

DC X'80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F' 

DC X'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F' 

DC X'AOAI E2E3E4 E5 E6 E7E8 E9AAAB ACADAE AF* 

DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' 

DC X'COCI C2C3C4C5C6C7C8C9CACBCCCDCECF' 

DC X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF' 

DC X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF' 

DC X'FOFI F2F3F4F5F6F7F8F9AFBFCFDFEFFF' 

DS OH 



LTORG 
END 



PCT/US99/28321 



"0l335SlDfD 
01336000 
01336100 
01336200 
01336300 
01336400 
01336500 
01336600 
01336700 
01336800 
01336900 
01337000 
01337200 
01337300 
01337400 
01337500 
01339300 
01339400 
01339500 
01339600 
01339700 
01339800 
01339900 
01340000 
01340100 
01340200 
01340300 
01340400 
01340500 
01340600 
01340700 
01340800 
01340900 
01341000 
01341100 
01341200 
01341300 
01342000 
01343000 
01344000 
01345000 
01346000 
01347000 
01348000 
01349000 
01350000 
01360000 
01370000 
01380000 
01390000 
01400000 
01410000 
01420000 
01430000 
01440000 
01450000 
01460000 
01470000 
01480000 
01490000 
01500000 
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BE TIMOUT1 YES, CONTINUE 

CLC COMAVUID.BLANKS HAS THERE BEEN A VALID USER? 

BNH GOTMDAS NO, CONTINUE 

CLC COMAEXSS(9),COMAVUID NO, IS IT THE SAME ONE? 

BE TIMOUT1 YES, CONTINUE 

B STARTOVR NO, START OVER 



TIMOUT1 EQU 

ZAP DOUBLE2 t MDASLTIM CHECK TO SEE IF TIMED OUT 

MVC MDASLTIM, DOUBLE UPDATE LAST ACCESS TIME 

AP DOUBLE2.TIMEOUT1 I 

CLC DOUBLE.DOUBLE2 I 

BNH GOTMDAS IT'S OK 

BH PUTCKEY YES.CONTINUE 

CLC COMAEXSS, BLANKS WAS COMAKEY THERE ALREADY? 

BNH GOTCKEY YES, CONTINUE 

MVC COMAKEY(9),COMAEXSS NO, PUT IT IN COMMAREA 

B GOTCKEY YES, CONTINUE 

PUTCKEY MVC COMAKEY(9),SAVEXSS NO, PUT IT IN COMMAREA 

GOTCKEY MVI 
MVI 
MVI 
MVI 
MVI 
MVC 
ZAP 
MVI 



COMAERRF.C ' 
COMACONT.C ' 
COMAMI01.C ' 
COMAPROF.C ' 
COMAFTYP.C ' 
COMAEDTC, BLANKS 
COMAUSEG =P'0' 
COMAPROF.C ' 



UNPK COMAMQNM,EIBTASKN COPY TD QUEUE PREFIX 

Ol COMAMQNM+y.C'O' 

MVC COMAPROF.SAVEPROF 

MVC COMAM VAR , S AVEM VAR 

MVC COMAM VLN, SAVE MVLN 

MVC MDASLTIM, DOUBLE 

MVC COMACOML.COMLTH 



LH R14=H'ir 

LA R15.COMAFICT PUT DATA HERE 

MVC COMAFNDF =C'FACTFICT* DATA IDENTIFIER 

BAL R4.GETDATA GO GET IT 



LH R14,=H'11' 

LA R15,COMAFIC1 PUT DATA HERE 

MCV COMAFNDF ,=C'FACTFICE' DATA IDENTIFIER 

BAL R4.GETDATA GO GET IT 



LH 
LA 
MVC 
BAL 
CLC 
BNH 
MVC 
MVC 

NOTMDAS EQU 

DEBUGDEBUGDEBUGDEBUG 
CLC COMATOPC(10), 
BNE AFTDBUG1 

DEBUG1 B AFTDBUG1 

AFTDBUG1 EQU 



R14 =H'1(r 
R15.SAVETOPC 
COMAFNDF,=C'M D ASTR AN * 
R4.GETDATA 
SAVETOPC, BLANKS 
DQERROR 

COMATOPC.BLANKS 
COMATOPC(1 0),SAVETOPC 



=C'MI-PINT2' 



PUT DATA HERE 
DATA IDENTIFIER 
GO GET IT 

YES. CONTINUE 
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TRYAGAIN EQU 



DEBUG 



45 

DEBUG 



DEBUG 



DQERROR 



DEQ 



NORESRC 

ERROR 
RETURN 

RETURN2 



BLANKS 
NUM20NE 



EXEC CICS UNLOCK DATASET('RAMDAS') 
MVC COMAPROC.SAVEPROC 

COMAPROF.C'S' FACTS RESPONSE 
DEQ 



MVI 
B 

EQU 
MVC 
MVC 
B 

EQU 

EXEC CICS DEQ RESOURCE(MIDASSTE) LENGTH(8) 



MDASKEYY.BLANKS 
C OM ATO PC , B LAN KS 
DEQ 



FACTS REQUEST? 
NO, RETURN 



CLI FACTSREQ.C'Y' 

BNE RETURN 

MVC COMAPROC.SAVEPROC 

B RETURN 

EQU NO RESOURCES AVAILABLE 

MVC COMAMESS.BLANKS 

MVC COMAMESS(12) =C'NO RESOURCES 

EQU 

MVC MDASKEYY.BLANKS 
EQU 

EXEC CICS DEQ RESOURCE(MIDASSTE) LENGTH(8) NOHANDLE 
EQU 

EXEC CICS RETURN 

COPY RAMIGETP 

DC CL130" 
DC 15C'0' 
LTORG 

END RAMI0300 
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APPENDIX E 



PCT/US99/28321 



ALL INFORMATION INTHIS DOUCMETN.M INCLUDING THE TRANSPORT 
MECHANISM AND PROTOCOLS. ARE COPYRIGHT 1998 BY THE UNIVERSITY 
OF FLORIDA. ALL RIGHTS RESERVED 



SUBROUTINE RAM2AO00 



FUNCTION: 

Read a incoming data and determine what file to read 
Read a VSAM data set 

Determine if the transaction is update, if so, update record 
Format Web Page for browser 



PRINT NOGEN 
COPY RARAREGS 
COPY RAMICOMM 
COPY RARAMTEX 
COPY RARAGATX 
COPY RARAMSTY 
COPY RARAMIOB 
COPY RARAOLEG 
USING COMMAREA.R5 

COPY RARAQUED 
QUEUE DSECT 



QLINES 
QLINELEN 

QUEAREA 
QOUT 
QUELINE 
QUELLEN 



RADSECTO 
INSERTDS 



EQU 
EQU 



45 THESE TWO LINES NEED TO BE IN THE JOB 

200 / 



DSECT 

DS OCL500 
DS CL500 
EQU '-QUEAREA 
USING QUEAREA.R12 

DSECT 



DYNAMIC STORAGE 



DFHEISTG 



INSERTT 
UPAD 
SCTY 
NEWTOPC 



DSECT 

COPY DFHAID 
COPY RARASPAD 



DS 
DS 
DS 



C 

c 
c 



00010000 

00011003 

00012003 

00013003 

00014003 

00015003 

00016003 

00017003 

00018003 

00019003 

00019103 

00019203 

00019303 

00019403 

00019503 

00019611 

00019703 

00019803 

00019903 

00020203 

00020303 

00020403 

00100000 

00110000 

00120000 

00130000 

00140000 

00150000 

00160000 

00161008 

00170000 

00180000 

00190000 

00120000 

00220000 

00230000 

00240000 

00241000 

00242000 

00243000 

00244000 

00245000 

00246000 

00247000 

00248000 

00249000 

00250000 

00260000 

00270000 

00280000 

00290000 

003000000 

00310000 

00320000 

00330000 

00331000 

00332000 

00333000 
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AUTOADD 


DS 


c 


DELFLD 


DS 


PI 4 


ALBS 


DS 


CL1 


TRECLEN 


DS 


CL2 


KEYOFF 


DS 


CL4 


HEDLEN 


DS 


CL2 


SEGLEN 


DS 


PI 9 


SEGOFF 


DS 


pi 9 


LEVOFF 


DS 


PI 9 


SEGCOUNT 


DS 


PI 9 


NEWSEGS 


U\J 


PI 9 
rLZ 


ADDROLFG 


uo 


PI /! 


SADDOLFf; 


n<s 
uo 




SPNTOI PG 


no 


GL4 


APPin 


HQ 
Uo 


GL4 




Uo 


CL3 


ni imit 


Do 


CL3 


r^i IMC) CM 


Do 


CL3 


IvlAAOCUO 


Do 


PL3 


rlAtu 


no 
Do 


C 


UllNOCU 


no 

Do 


CL1 


l/CVI CM 


no 

DS 


CL3 


UlorLAY 


DS 


C 


PHI IRQP 


no 
Uo 


CL8 


C.PPTIOW 


Uo 


CL4 


rxlJUINLT 


no 
Uo 


CL1 


onvcy 


Uo 


F 


WPin 

OVu IU 


nc 
Uo 


F 


CAVF9 


nc 
Uo 


F 


OVCn 


nc 
Uo 


F 


SAVE7 


uo 


c 
r 


SAVE 12 


DS 


F 
• 


SAVE 14 


DS 


F 


SAVE 15 


DS 


F 


RDCNT 


DS 


PL3 


RDMAX 


DS 


PL3 


TAG MAX 


DS 


PL3 


TAGCNT 


DS 


PL3 


FINDFLD 


DS 


CL8 


FINDFLDT 


DS 


CL79 


TH1SSEG 


DS 


PL2 


TEMP03 


DS 


CL3 


OUTBLNK 


DS 


CL1 



PROGRAM RAMI2A0O STARTS HERE 

RAM12A00 DFHEIENT CODEREG=(3,7,8) 
RAMI2A00 AM0DE31 
RAMI2A00 RMODE ANY 



START EQU 

CLD EIBCALEN =H'0' 
BE RETURN 
L R5.DFHEICAP 
USING COMMAREA.R5 
MVI • COMACONT.C ' 

EXEC CICS HANDLE CONDITION DSIDERR(ERROR) 
UNPK KEYLEN.D0UBLE2 



(jj3S4BB8* 

00335000 

00336000 

00337000 

00338000 

00339000 

00340000 

00350000 

00360000 

00370000 

00380000 

00390000 

00400000 

00410000 

00411000 

00411100 

00411200 

00411300 

00411400 

00411500 

00411600 

004117000 

00411800 

00411900 

00412000 

00412100 

00412200 

00412300 

00412400 

00412500 

00412600 

00412700 

00412800 

00412900 

00413000 

00413100 

00413200 

00413300 

00413400 

00413500 

00413600 

00413700 

00413800 

00413900 

00414000 

00415000 

00416000 

00417000 

00418000 

00419000 

00420000 

00430000 

00440000 

00450000 

00460000 

00470000 

00480000 

00490000 

00500000 

00520000 

00805600 
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Ol KEYLEN+2,C , 0' 
BAL R4.CLEANKEY 

INSERT) 



PACK DOUBLE.QLINES 

CVB R15, DOUBLE 

PACK DOUBLE.QLINELEN 

CVB R14.DOUBLE 

ST R14.FWORD 

SR R14.R14 

M R14.FWORD 

STH R15.COMAQLEN 



EXEC CICS GETMAIN LENGTH(COMAQLEN) INITIMG(X'40') SET(12R) 

ST R12.COMAQADD 

LR R14.R12 

AH R14.COMAQLEN 

PACK DOUBLE.QLINELEN 

CVB R15.DOU8LE 

STH R15.HALFWORD 

SH R14.HALFWORD 

SH R14.HALFWORK 

ST R14.COMAQ 

MVC COMAQLLN.HALFWORD 

PACK DOUBLE.QLINES 

ZAP RDMAX.DOUBLE 

ZAP TAGMAX, DOUBLE 

ZAP TAGCNT=P'3' 

ZAP RDCNT^P'O' 



MVI COMAERRF.C ' 

MVI CO MAE NT, C ' 

MVI COMACMD.C ' 

CLI COMASTUD.C'A' 

BE CK4ADD 



CLC COMATOPL.COMATOPC 

BE SAMETOPC 

MVI NEWrOPC.C'Y' 

B READ2ND 



SAMETOPC LH R14=HT 

LA R15 ( COMACMD 

MVC COMAE DTC, BLANKS 

MVC COMAE DIO, BLANKS 

MVC COMAFNDF=C'MDASNEXT' 

MVI COMADECP.C ' 

BAL R4.GETDATA 

MVI COMAERRF.C ' 

SR R15.R15 

IC R15,0(Rt4) 

LA R15.1{15) 

STC R15.0(R14) 

STC R15.COMALEVL 



ZAP COMAUSEG ^P'O' 



0080*5700' 

00805800 

00805900 

00806000 

00807000 

00808000 

00809000 

00810000 

00820000 

00821000 

00822000 

00823000 

00824000 

00825000 

00826000 

00827000 

00828000 

00829000 

00830000 

00840000 

00850000 

00860000 

00870000 

08710000 

00872000 

00873000 

00874000 

00875000 

00876000 

00877000 

00878000 

00879000 

00879100 

00879200 

00879300 

00879400 

00879500 

00879600 

00879700 

00879800 

00879900 

00880000 

00880100 

00880200 

00880300 

00880400 

00880500 

00880600 

00880700 

00880800 

00880900 

00881000 

00882000 

01320000 

01330000 

01340000 

01350000 

01360000 

01370000 

01390000 



SUBSTITUTE SHEET (RULE 26) 



WO 00/33202 



PCT/US99/2832I 



49 



L R10.ADDROLEG 
USING RARAOLEG.R10 

ZAP DOUBLE.OLEGSC 

CVB R2.DOUBLE 

BNP ERROR 

LA R10,OLEGHLEN(R10) 
USING OLEGS.R10 

ZAP DOUBLE2=P'0' 
UPLOOP EQU 

CLC P;EGFMA ( =C— 1 

BE UPBCT 

CLI OLEGWHER.C'S' 

BE UPSEGS 

MVC COMAEDTC.OLEGEDIT 

MVC COMAEDIO.OLEGEDIO 

MVC COMAFTYP.OLEGFTYP 

PACK DOUBLE.OLEGFOFF 

CVB R14.COMAFWD3 

STH R14, DOUBLE 

LR R15.R9 

AH R15.COMAFWD3 

PACK DOUBLE, OLEGLENG 

AP DOUBLE2.DOUBLE 

CVB R14.DOUBLE 

AR R14.R15 

C R14.COMAREND 

BH BADADDR 

CVB R14.DOUBLE 



MVC OMAFNDF(4) ( APPID 

MVC COMAFNDF+4(4),OLEGFNAM 

MVC COMAPLEN, OLEGLENG 

MVC COMAKEYF.OLEGHKEY 

MVC COMAFTYP.OLEGFTYP 

MVC COMAOLEN.OLEGOLEN 

MVC COMADECP.OLEGDECP 

LH R15.RECLEN 

CLI FIXED.C'Y' 

BE NOFADD1 

AR R15.R14 

NOFADD1 STH R15.TRECLEN 

ST R2.SAVE2 

EXEC CICS GETMAIN SET(R2) LENGTH(TRECLEN) INITIMG(X'40 



LR 


R0.R2 


L 


R14.BFILADDR 


LH 


R1.HALFWORD 


MVCL 


R0.R14 


LR 


R9.R2 


ST 


R9.BFILADDR 


ST 


R 9, SAVE 9 


AH 


R9.HALFWORD 


SH 


R9.SEGLEN 


L 


R2.SAVE2 



oUooboo 

01440000 
01450000 
01460000 
01470000 
01480000 
01481000 
01482000 
01483000 
01484000 
01485000 
01486000 
01487000 
01488000 
01489000 
01490000 
01500000 
01510000 
01510100 
01510200 
01510300 
01510400 
01510500 
01510600 
01510700 
01510800 
01510900 
01511000 
01512000 
01513000 
01514000 

STORAGE VIOLATION PROTECTION 01514111 

01514211 
01514311 
01514411 
01514511 
01514611 
01515100 
01515200 
01515300 
01515400 
01515500 
01515600 
01515700 
01525200 
01525300 
01525400 
01525500 
01525600 
01525700 
01525800 
01525900 
01526000 
01526100 
01526200 
01526300 
01526400 
01526500 
01526600 
01526700 
01526800 
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NOINS19 MVC COMAEDTC.OLEGEDIT 

MVC COMAEDIO.OLEGEDIO 

MVC COMAFTYP.OLEGFTYP 

PACK DOUBLE.OLEGFOFF 

CVB R14, DOUBLE 

STH R14.COMAFWD3 

LR R15.R9 

AH R15.COMAFWD3 

ST R15.COMAFWD3 

PACK DOUBLE.OLEGLENG 

AP DOUBLE2.DOUBLE 

CVB R14, DOUBLE 

AR R14.R15 STORAGE VIOLATION PROTECTION 

C R14.COMAREND 

BH BADADDR 

CVB R14, DOUBLE 

MVC COMAFNDF(4),APPID 

MVC COMAFNDF+4(4),OLEGFNAM 

MVC COMAPLEN.OLEGLENG 

MVC COMAKEYF.OLEGHKEY 

MVC COMAFTYP.OLEGFTYP 

MVC COMAOLEN.OLEGOLEN 

MVC COMADECP.OLEGDECP 

BAL R4,GETDATA 

CLI ADDFLAG.C'Y' 
BE NODELSEG 



BCT R4.SEGULOP 
SEGSDONE L R9.SAVE9 
UPLOVER EQU 



CLI COMAENT.C'Y' 

BNE NOENT19 

CLI COMAERRF.CT 

BE NOENT19 

CLC SEGOFF t HEXZEROS 

BE R14.SEGOFF 

LH R14.SEGOFF 

LR R15.R9 

AR R14.R15 



CLI SCTY.C'B' 

BNE NOTS2B2 

LH R15,0(R14) 

CVD R15. DOUBLE 

AP DOUBLE,NEWSEGS 

BH OVERMAX 

CVB R15.DOUBLE 

STH R15.0(2,R14) 



0^9^ 

01527000 

01527100 

01527200 

01527300 

01527400 

01527500 

01527600 

01527700 

01527800 

01527900 

01528100 

01528200 

01528300 

01528400 

01528600 

01528711 

01528811 

01528911 

01529011 

01529111 

01529211 

01529300 

01529400 

01529500 

01529600 

01529700 

01529800 

01529900 

01530000 

01530100 

01530200 

01530300 

01530400 

01540000 

01540100 

01540200 

01540300 

01540400 

01540500 

01540600 

01540700 

01540800 

01540900 

01541000 

01541100 

01541200 

01541300 

01541400 

01541500 

01541600 

01541700 

01541800 

01541900 

01542000 

01543000 

01544000 

01545000 

01546000 

01547000 

01548000 
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B NONS19 



NOTSZB2 CLI SCTY.CT 

BNE NOTSZ2 

PACK DOUBLE.0(2 ( R14) 

AP DOUBLE.NEWSEGS 

CP DOUBLE.MAXSEGS 

BH OVER MAX 

UNPK 0(2,R14),DOUBLE 

B NONS19 



NOTS22 AP 0(2,R14),NEWSEGS 

CP 0(2,R14,MAXSEGS 

BH OVERMAX 

NONS19 EQU 

CLI UPAD.C'N* 

BE NOENT19 



EXEC CICS REWRITE DATASET(COMAFILE) FROM(RARSECTO) 

LENGTH(RECLEN) 
MVI REWRITE.C'R' 
LOADSCRN EQN 



CLC COMAS001 .BLANKS 
BH DOS001 



CLI COMAERRF.C'Y' 

BNE CKALGO 

CLC COMAALGN.BLANKS 

BNH NOALGO 

MVC COMAIBFN.COMAALGN 

B DOXXRET 

CKALGO CLI NEWTOPC.C'Y' 

BE NOALGO 

CLC COMAALGO.BLANKS 

BNH NOALGO 

MVC COMAIBFN.COMAALGO 

B COXXRET 
NOALGO EQU 



INSERT LOCATION S001 



DOS001 CLC COMAS001 .BLANKS 

BNH NOS001 

MVC COMAMSGF.BLANKS 

ST R12.COMAUP12 

MVC SPADSKEY.COMAS001 

CLC COMAS001 (4) t -C'RAMr 
BE NOTOBJ 

EXEC CICS HANDLE CONDITION NOTFND(NOTOBJ) NOTOPEN(NOTOBJ) 

DISABLED(NOTOBJ) 
EXEC CICS READ DATASET('RAMIOB') SET(R1) RIDFLD(COMAS001) 

LENGTH(HALFWORD) 

USING RARAMIOB.R1 



01550000 

01560000 

01570000 

01580000 

01581000 

01582000 

01583000 

01583100 

01583200 

01583300 

01583400 

01583500 

01583600 

01583700 

01583800 

01583900 

01584000 

01584100 

01584200 

01584300 

01584400 

01584500 

01584600 

01964000 

01964000 

01964107 

01964207 

01964307 

01965000 

01966000 

01967000 

01967100 

01967200 

01967300 

01967400 

01967500 

01967600 

01967700 

01967800 

01967900 

01968000 

01969000 

01970000 

01980000 

01990000 

02000000 

02010007 

02020000 

02030000 

02040000 

02050000 

02050108 

02050208 

02051008 

02052008 

02053008 

02054008 

02055008 

02056008 

02057008 
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MVC SPADSKEY.MIOBLOOK 

EXEC CICSA HANDLE CONDITION PGMIDERR(BADSUBR) 
EXEC CICS HANDLE CONDITION NOTFND(NOTFND) NOTOPEN(NOTOPEN) 
DISABLED(NOTOPEN) 

NOTOBJ EXEC CICS HANDLE CONDITION PGMIDERR(NOS001) 
EXEC CICS LINK PROGRAM(SPADSKEY) COMMAREA(COMMAREA) 



NONXPR19 

INSERT1 

AUADD 



NOAUAD3 



OPLOOP 



CKTABS 





LENGTH(COMAUPL) 


L 


R12.COMAUP 


CLC 


COMAMSGF,=C'OK' 


BNE 


ERROR 


CLI 


NEWrOPC.C'Y' 


BE 


NOALGOS 


CLC 


COMAALGO.BLANKS 


MVI 


52(R12),X'15' 


BAL 


R10.TAGS 


EQU 




BEFORE MOVE 


EQU 




CLI 


COMASTUD.C'A' 


BNE 


NOAUAD3 


CLI 


COMACMD.C'A' 


BNE 


NOAUAD3 


MVC 


COMAIBFN=C2' 


B 


RETURN 


EQU 




L 


R10.ADDROLEG 


USING RARAOLEG.R10 



ZAP DOUBLE.OLEGSC 



CVB 
BNP 



R2, DOUBLE 
ERROR 



LA R10,OLEGHLEN(R10) 
USING OLEGS.R10 
ZAP DOUBLE2 =P*0' . 



EQU 

CLI 
BE 



OLEGWHER.C'S' 
SPLOOP 



ZAP COMAUSEG=P'0* 

CLI OLEGTABL.C'S' 

BNE CKTABR 

MVC QOUT(07)=C'<TABLE>' 

ST R10.SAVE10 

BAL R10JAGS 

L R10.SAVE10 

MVC QOUT(36) =C'<TR VALIGN="TOP" ALIGHN= W LEFT><TD>' 

MVC QOUT(36) =C'<TR VALIGN=TOP" ALIGHN="LEFT"> 

ST R10.SAVE10 

BAL R10.TAGS 

L R10.SAVE10 
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02058114 

02059008 

02059108 

02059208 

02060008 

02061008 

02070000 

02080000 

02090000 

02100000 

02100106 

02100206 

02100306 

02100406 

02714000 

02715000 

02716000 

02717000 

02718000 

02719000 

02720000 

02730000 

02740000 

02750000 

02760000 

02770000 

02780000 

02790000 

02800000 

02810000 

02820000 

02830000 

02831000 

02832000 

02832100 

02832200 

02832300 

02832400 

02832500 

02832600 

02832700 

02832800 

02832900 

02833000 

02834000 

02835000 

02836000 

02837000 

02838000 

02839000 

02839100 

02939200 

02839300 

02839400 

02839500 

02839600 

02839700 

02839800 

02839900 

02840000 
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CKTABR 



GATXLOOP 



53 

B TABOVER 

CLI OLEGTABL.C'R' 

BNE CKTABD 

MVC QOUT(36) =C'</TR><TR VALIGHN=TOP" ALIGN="LEFT'>* 

BNP NOGATX 

LA R2,GATXHLEN(R2) 

USING GATXS.R2 

MVC QOUT(79),GATXCOMM 

MVI QOUT+79,X'15' 

ST R14.FWORD 

ST R10 t SAVE10 

BAL R10.TAGS 

L R10.SAVE10 

L R14.FWORD 

LA R2,GATXSLEN(R2) 

BCT R 14, GATXLOOP 



02840100 
02840200 
02840300 
02840400 
02851500 
02851600 
02851700 
02851800 
02851900 
02852000 
02852100 
02852200 
02852300 
02852400 
02852500 
02852600 
02852700 



NOGATXQEXECC!CSHANDLECONDITIONNOTFND(NOTFND)NOTOPEN(NOTOPEN) 02852800 



DISABLED(NOTOPEN) 

MVC 0(5,R12)=C'</TD>' 

MVI 5(R12),X*15' 

ST R 10, SAVE 

BAL R10.TAGS 

L R10.SAVE10 

B TABOVERE 



TABOVERE EQU 

OPBCT LA R10,OLEGSLEN(R10) 

BCT R2.0PLOOP 

B CKERRF19 



SPLOOP EQU 

ZAP THISSEG=P'0* 

ZAP COMAUSEG=PT 

ST R10.SADDOLEG 

ST R2.SCNTOLEG 

LH R14.SEGOFF 

LR R15,R9 

AR R14.R15 

CLI SCTY.C'B' 

BNE NOTSZB4 

LH R15,0(R14) 

CVD R15.DOUBLE 

ZAP DOUBLE2.DOUBLE 

B SKSZ4 

NOTSZB4 CLI SCTY.C'Z' 

BNE NOTSZ4 

PACK DOUBLE,0(2,R14) 

STH R14.COMAFWD3 

LR R6.R9 

AH R6.COMAFWD3 

PACK DOUBLE, OLEGLENG 

AP DOUBLE2, DOUBLE 



02852900 

02853000 

02853100 

02852000 

02853300 

02853400 

02853500 

02853600 

02853700 

02853800 

02853900 

02854000 

02854100 

02854200 

02854300 

02854400 

02854500 

02854600 

02854700 

02854800 

02854900 

02855000 

02855100 

02855200 

02855300 

02855400 

02855500 

02855600 

02855700 

02855800 

02855900 

02856000 

02856100 

02856200 

02856300 

02856400 

02856500 

02864900 

02865000 

02865100 

02865200 

02865300 

02865400 
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CVB R14.DOUBLE 

AR R14.R6 STORAGE VIOLATION PROTECTION 

C R14.COMAREND 

BH BADADDR 

CVB R14. DOUBLE 

MVC COMAFNDF(4),APPID 



SETOB19 



MVC 

MVC 

MVC 

MVC 

MVI 

AP 

B 



COMAFNDF+4(4) t OLEGFNAM 

COMAREAS.OLEGHEAD 

COMAPLEN.OLEGLENG 

COMAKEYF.OLEGHKEY 

OUTBLNK t C'Y' 

COMAUSEG=PT 

SEGLOOP 



CKERRF19 EQU 



INSERT1 
INSERT1 



ERR2ND 



MVC 

AFTER MOVE 



CLI 

BNE 

EQU 

CLI 
BE 



COMAERRE.C'Y' 
NOERR2 



REWRITE, C'E" 
DUPE19 



MVC SPADSKEY, BLANKS 
MVC SPADSKEY(10)=C;'INPUTERROR' 
EXEC CICS HANDLE CONDITION NOTFND(N2GATX)NOTOPEN{N2GATX) 
RIDFLD(SPADSKEY) 

USING RARAGATX.R2 
ZAP DOUBLE, GAT 
CVB R14, DOUBLE 
BNP N2GATX 
LA R2.GATXHLEN(R2) 
USING GATXS.R2 



gatxl002 mvc qout(79),gatxcomm 
mvi qout^.x'is 1 . 
st r14,fword 

ST R10,SAVE10 

BAL R 10, TAGS 

L R10.SAVE10 

L R14.FWORD 

LA R2,GATXSLEN(R2) 

BCT R14.GATXL002 
N2GATX EXEC CICSHANDLECONDITION NOTFND(NOTFND) NOTOPEN(NOTOPEN) 

DISABLED(NOTOPEN) 
B NOUP19 

DUPE19 MVC 0(30,R12) =C*<B>RECORD EXISTS, NOT ADDED</b>' 

MVI SOfR^.x'IS' 
AH R12.COMMAQLLN 
B NOUP19 



NOERR2 EQU 
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021565512 

02865613 

02865712 

02865812 

02865912 

02866012 

02866100 

02866200 

02866300 

02866400 

02866500 

02878200 

02878300 

02878400 

02878500 

02878600 

02878700 

02878800 

02878900 

02879000 

02879100 

02879200 

02879300 

02879400 

02879500 

02879600 

02879700 

02879800 

02879900 

02880000 

02880100 

02880200 

02880300 

02880400 

02880500 

02880600 

02880700 

02880800 

02880900 

02881000 

02881100 

02881200 

02881300 

02861400 

02881500 

02881600 

02881700 

02881800 

02881900 

02882000 

02882100 

02882200 

02882300 

02882400 

02882500 

02882600 

02882700 

02882800 

02882900 

02883000 
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ZAP DOUBLE.OLEGSC 
CVB R2.DOUBLE 
BNP ERROR 

LA E10,OLEGHLEN(10) 
USING OLEGSR10 

ZAP DOUBLE2=P'0' 

PKLOOP CLI OLEGHKEY.C 1 

BCG PKBCT 

LA R15.COMAKEY+000 

PACK DOUBLE.OLEGFOFF 

CVB R14.DOUBLE 

STH R14.COMAFWD3 

LA R6, BLANKS 

PACK DOUBLE.OLEGLENG 

AP DOUBLE2 1 DOUBLE 

CVB R14.DOUBLE 

MVC COMAFNDF(4),APPID 

MVC COMAFNDF+4(4),OLEGFNAM 

MVC COMAREAS.OLEGHEAD 

MVC COMAPLEN.OLEGLENG 

MVC COMAKEYF.OLEGHKEY 

MVC COMAEDIO.OLEGEDIO 

MVC COMACOLR.OLEGB1 KY 

MVC COMADECP,OLEGDECP 

MVC COMABLZL.OLEGBLZL 

MV! COMARAIN.C'Y' 

BAL R4.PUTDATA 

PKBCT LA R10,OLEGSLEN(10) 

BCT R2, PKLOOP 



MVC 0(10.R12) =C'</FORM><P>' 

MVI 10(R12),X*15' 

AH R12.COMAQLLN. 

MVC QOUT(09)=C'</TR><TR> , 

ST R10.SAVE10 

BAL R 10, TAGS 

L R10.SAVE10 

MVC QOUT{13) =C , <^'R></TABLE> , 

ST R10.SAVE10 



BAL R 10, TAGS 
B NOTAG19 



ERROR EQU 

MVI COMAERRF.C'Y* 
EXEC CICS HANDLE CONDITION NOTFND(ERNOTF) NOTOPEN(ERNOTF) 
DISABLED(ERNOTF) 

MVC SPADSKEY.BLANKS 
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02883100 

03374100 

03374200 

03374300 

03374400 

03374500 

03374600 

03374700 

03374800 

03374900 

03375000 

03375100 

03375200 

03375300 

03375400 

03375500 

03375600 

03375700 

03375800 

03375900 

03376000 

03376112 

03377000 

03378000 

03379000 

03380000 

03380100 

03380200 

03380300 

03380400 

03380500 

03380600 

03380700 

03380800 

03380900 

03381000 

03381100 

03381200 

03381300 

03381400 

03381500 

03381600 

03381700 

03381800 

03381900 

03382000 

03382100 

03382200 

03382300 

03382400 

03382000 

03870000 

03880000 

03890000 

03900000 

03910000 

03920000 

03930000 

03940000 

03950000 

03960000 
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MVC SPADSKEYfS^C'ERROR' 

CLC COMAREGN, BLANKS 

BNH LEAVEEF 

MVC SPADSKEY(8),COMAREGN 

LEAVEEFEXEC CICS READ DATASET('RAMSTY')SET(R2) LENGTH(HALFWORD) 

USING RARAMSTY.R2 

ZAP DOUBLE.MSTYSC 

CVB R14.DOUBLE 

BNP ERNOTF 

LA R2,MSTYHLEN(R2) 

CKNOTFER CLC 0(5,R2) =C<FORM' 

BNE CKSTUDER 

MVC 0(79,R12),0(R2) 

MVI 79(R12),X'15' 

AH R12.COMAQLLN 

B NOERBCT 



CKSTUDER 



ERMDASAD 

NOROUT 
NOERBCT 



ERNOTF 
RETURN 



DOXXRET 



CLEANKEY 



CLI 
BE 
BE 

CLI 
BE 
CLI 
BE 
B 

CLC 
BE 

MVC 

AH 

LA 

BCT 

B 



EQU 
B 

EQU 

CLI 

BNE 

CLI 

BNE 

MVC 

B 

EQU 
EXEC 



COMASTUD,C'Y' 

NOSTU192 

ERNOTF 

COMAUPDA.C'N' 

ERMDASAD 

UPAD,C*N' 

ERMDASAD 

NOEROUT 

NOERBCT 

NOERBCT 

0(79,R12),0(R2) 
R12.COMAQLLN 
R2,MSTYSLEN(R2) 
R14, CKNOTFER 
NOSTU192 



NOSTU192 

COMASTUD.CW 

DOXXRET 

COMACMD.C'A* 

DOXXRET 

COMAIBFN=CT 

DOXXRET 

CICS RETURN 



COPY RAMIGETP 
COPY RAMIPUTP 



LA 
SR 
IC 
EX 

LA 
LA 



R10.COMAKEY 
R2.R2 
R2.50 
R2.CKTR 

R10.COMAKEY 
R15.50 



CLEAR REGISTER 

GET LENGTH OF FIELD ENTERED 

TRANSLATE FIELD TO UPPER 



03970000 

03980000 

03990000 

04000000 

04010000 

04020000 

04030000 

04040000 

04050000 

04060000 

04070000 

04071000 

04072000 

04073000 

04074000 

04075000 

04076000 

04077000 

04077002 

04077102 

04078000 

04079000 

04079100 

04079200 

04079300 

04079400 

04079500 

04079600 

04079700 

04079800 

04079900 

04080000 

04080100 

04080200 

04080302 

04080400 

04080500 

04080602 

04080700 

04080800 

04080900 

04081000 

04081100 

04081200 

04081300 

04081400 

04081500 

04081600 

04081700 

04081800 

04081900 

04082000 

04082100 

04083000 

04084000 

04085000 

04086000 

04087000 

04088000 

04089000 

04090000 
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FIXHZ19 CLI 0(R10),X , 00' 

BNE BCTHZ19 

MVI 0<R10),C" 

BCTHZ10\9 LA R10.1(R10) 

BCT R15.FIXHZ 

BR R4 

PUTERROR MVC QUELINE(*-*),0(R14) 

COPY RA02ERRM 



TITLE 'CONSTANTS AND LITERALS' 

DS OF 

PACKONE DC PL4T 

BLANKS DC X'40' 

NUMZONE DC 9C0' 

HEXZEROS DC XL9W 

CKTR TR 0r-*,R10),UPCASE TRANSLATE TO UPPER CASE 

UPCASE DC X'000102030405060708090AOBOCODOEOF' 

DC X , 101112131415161718191A1B1C1D1E1F , 

DC X'202 1 22232425262728292A2B2CD2E2F' 

DC X'3031 32333435363738393A3B3C3D3E3F' 

DC X'4041 424344454647484 94A4B4C4D4E4F* 

DC X'5051 52535455565758595A5B5C5D5E5F' 

DC X'6061 62636465666768686A6B6C6D6E6F' 

DC X'7071 72737475767778797A7B7C7D7E7F' 

DC X'80C 1 C2C3C4C5C6C7C8C98A8B8C8D8E8F' 

DC X'90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F' 

DC X'A0A1E2E3E4E5E6E7E8E9AAABACADAEAF' 

DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' 

DC X'C0C1C2C3C4C5C6C7C8C9CCACBCDCECP 

DC X , D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF* 

DC X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF* 

DC X'FOFI F2F3F4F5F6F7F8F9FAFBFCFDFEFF' 
SPACE 

DC OH 



END RAMI2A00 



04110000 

04120000 

04130000 

04140000 

04150000 

04160000 

01470000 

04180000 

04190000 

04200000 

04210000 

04220000 

04230000 

04240000 

04250000 

04260000 

04270000 

04280000 

04290000 

04300000 

04310000 

04320000 

04330000 

04340000 

04350000 

04360000 

04370000 

04380000 

04390000 

04400000 

04410000 

04420000 

04430000 

04400000 

04450000 

04460000 

04470000 

04480000 

04490000 

04500000 
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TSO FOREGROUND HARDCOPY 
DSNAME=RA.PATENT 

PROGRAM RAM! 1 TOO 



APPENDIX F 

(RAMI1T00) 



SASS MENU INTERFACE 
ALL INFORMATION IN THIS DOCUMENT, INCLUDING THE TRANSPORT 
MECHANISM AND PROTOCOLS, ARE COPYRIGHT 1998 BY THE 
UNIVERSITY OF FLORIDA. ALL RIGHTS RESERVED 

COPY RACL0001 
COPY RARAREGS 

COMMAREA STARTS HERE BASE REG IS R5 



COPY RARAGATX 
COPY RAMICOMM 
USING COMMAREA.R5 



COPY COMMAREA DSECT 
COPY COMMAREA DSECT 



FILE DSECT STARTS HERE BASE REG IS R9 



QLINELEN 

TSL 

QOUT 



DFHEISTG DSECT 



EQU 140 
EQU 5 
DSECT 
DS CL79 

WORKING STORAGE 



COMMAREA DSECT 



SCRATCH PAD AREA 



FOUNDIT 


DS 


C 


FILENAME 


DS 


CL8 


TEMPFLD 


DS 


CL79 


FINDELDT 


DS 


CL79 




DS 


OD 




DS 


F 


ANSWER 


D 


F'O' 


DIVIDEND 


DS 


OD 


QUOTIENT 


DS 


F 


REMAINS 


DS 


F 


DIVISOR 


DS 


F 


MESS 


DS 


CL79 


THISSEG 


DS 


PL3 


FLDLEN 


DS 


F 


AREAEND 


DS 


F 


AWORD 


DS 


F 


AREA1 


DS 


F 


AREA14 


DS 


F 


SV01 


DS 


F 


SV014 


DS 


F 


SV015 


DS 


F 


SAVE4 


DS 


F 


SAVE6 


DS 


F 


SAVE2 


DS 


F 



00010003 

00020003 

00030003 

00031037 

00032037 

00033037 

00034037 

00035037 

00040003 

00041003 

00042003 

00043003 

00044003 

00045003 

00046003 

00047003 

00047103 

00047203 

00047303 

00047403 

00047503 

00047603 

00047703 

00047803 

00047903 

00048003 

00049003 

00050003 

00060003 

00070003 

00080003 

00090003 

00100003 

00110003 

00120003 

00121003 

00122003 

00123003 

00124003 

00125003 

00126003 

00127003 

00128003 

00129003 

00123003 

00140003 

00141003 

00142003 

00142103 

00142203 

00142323 

00142423 

00142523 

00142623 

00142723 

00142823 

00142923 

00143023 
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SAVE 12 


DS 


F 


DD2 


DS 


F 


DDO 


DS 


F 


DD1 


DS 


F 


DD9 


DS 


F 


DD14 


DS 


F 


DD15 


DS 


F 


SI00 


DS 


F 


5101 


DS 


F 


SI14 


DS 


F 


SI15 


DS 


F 


MOVEADDR 


DS 


F 


MOVELENG 


DS 


H 


DDSOFF 


DS 


H 


RDMAX 


DS 


PL3 


RDCNT 


DS 


PL3 


TAGMAX 


DS 


PL3 


TAGCNT 


DS 


PL3 


DECIN 


DS 


CL30 


DECOUT 


DS 


CL30 



COPY RARASPAD 

PROGRAM RAMI1T00 STARTS HERE 

CLC COMAEDIO, BLANKS 

BNH EDTOK 

ST R0.SI00 

00151003 

ST R1.SI01 

00152003 

ST R14.SI14 

ST R15,St15 

ST R6.COMAUP01 

ST R12.COMAUP12 

00156003 

EXEC CICS LINK PROGRAM('RASI9200') COMMAREA(COMMAREA) 

LENGTH(COMACOML) 

L R12.COMAUP12 

00159003 

L R0.SI00 

00160003 

L R1.SI01 

00170003 

L R14,SI14 

L R15.SI15 

B NOSERRS 
EDTOK EQU 

CLC COMABLZL,NUMZONE 

BNH N0BL2L 

LR R1.R6 

PACK DOUBLE, COMABLZL 

CVB R0.DOUBLE 

CKBLZL CLI 0(R1),C0' 

BNE BCTBLZL 

MVI 0(R1),C" 

CLC GATXCOMM(8)=C'<SELECT 

BE DOSELC 

CLC GATXCOMM(8)=C'<OPTION' 

BNE CKRADIO 

PACK DOUBLE.COMAPLEN 

CVB R15, DOUBLE 



00*43123 
00143223 
00143323 
00143423 
00143623 
00143723 
00143823 
00143923 
00144123 
00144223 

00145003 
00146003 
00146103 
00146203 
00146303 
00146403 
00146503 
00146603 
00146703 
00146803 
00147003 
00150803 
00150903 



00153003 
00154003 
00155003 



00157003 
00158003 



00180003 

00190003 

00200003 

00210003 

00220003 

00230003 

00240003 

00250003 

00260003 

00261003 

00261103 

00261203 

00261303 

00268523 

00268623 

00268723 

00268823 

00268923 

00269023 

00269123 
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BCTR R15.0 

EX R15.CHEKOPTN 

BNE NOTOPT 

MVC TEMPFLD(17) =C'<OPTION SELECTED ' 

MVC TEMPFLD+17(62),GATXCOMM+8 

MVC GATXCOMM.TEMPFLD 

00269723 

B NOTOPT 

CKRADIO CLC GATXCOMM(19) =C'<INPUT TYPE^RADIO" ' 
BNE CKAREA 

CLC GATXCOMM+26(4)=C'@@@@' 
BNE NOTOAPI 

MVC GATXCOMM+26(4),COMAAPID 
00270523 

NOTOAPI PACK DOUBLE.COMAPLENT 
CVB R15.DOUBLE 
BCTR R15,0 
EX R15.CHEKRADI 
00271223 
BNE NOTOPT 

MVC TEMPFLD(27)=C'<input type= M RADIO" CHECKED' 

MVC TEMPFLD+27(52),GATXCOMM+19 

MVC GATXCOMM.TEMPFLD 

00271723 

B NOTOPT 

CKAREA CLC GATXCOMM(16)=C'<textarea name=" ' 

BE DOAREA 

CLC GATXCOMM(12) =C'</textarea> ' 

BNE NOTOPT 

MVC 0(79, R 1 2 )G ATXCOMM 

MVI 79(R12) ( X'15' 

BAL R10.TAGS 

B SKTOPT 

CLC GATXCOMM+ 1 6(4) =C'@@@@' 

BNE NOARAPI 

MVC GATXCOMM+16(4),COMAAPID 
00273126 

MVC 0(79, R 1 2)GATXCOMM 

MV! 79(R12) ( X , 15' 

BAL R10.TAGS 

CLI COMADECP.C'O' 
BNH NODECP 

DOCHARP MVC DECIN,0(R6) 
BAL R9.DECROUT 

L R15,FWORD 

AR R12.R15 

00283926 

LA R12,9(R12) 

LA R14,1(R14) 

AR R14.R0 

B MOVEOVER 



DOAREA 



NOARAPI 
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T70265223 
00269323 
00269423 
00269523 
00269623 



00269823 
00269923 
00270023 
00270123 
00270223 
00270323 
00270423 



00270823 
00270923 
00271023 
00271123 



00271323 
00271423 
00271523 
00271623 



00271823 
00271923 
00272023 
00272123 
00272233 
00272323 
00272423 
00272526 
00272626 
00272730 
00272826 
00272926 
00273026 



00273226 
00273326 
00273432 
00273526 
00273626 
00283126 
00283226 
00283326 
00283426 
00283526 
00283726 
00283826 



00284026 
00284126 
00284226 
00284326 
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NODECP 



DOPACKED 



USEPLEN2 
OLENOK 



UNPKPACK 



SKIPUP 



EX 
B 

EQU 
MVZ 
CLC 
BNE 
CLC 
BH 
MVC 
EQU 
PACK 
CVB 
BCTR 
B 



R 15, MOVED ATO 
MOVEOVER 



NUMCHECK(2),COMAOLEN 

NUMCHECK(2),NUMZONE 

USEPLEN2 

COMAOLEN.NUMZONE 
OLENOK 

COMAOLEN.COMAPLEN 



DOUBLE.COMAPLEN 
R15.DOUBLE 
R15 t 0 
SKIPUP 
00285926 

UNPK SPADSKEY(15),0r~*,R6) 



00286226 
Ol 

PACK 

CVB 

BCTR 



EX R15.UNPKPACK 

SPADSKEY+14,C'0' 
DOUBLE.COMAOLEN 
R15, DOUBLE 
R15.0 



LA R2.SPADSKEY 

LA R2,15(R2) 

SR R2.R15 
BCTR R2.0 

CLI COMADECP.C'O' 

BNH NOPDEC 

LA R2,1(R2) 

BCTR R15.0 

EX R15.UNPKDATP 

STH R15.MOVELENG 

ST R14.MOVEADDR 

MVC DECIN,0(R2) 

CLI COMAFTYP.C'B' 

BE DIBINARY 

ST R15.FWORD 

PACK DOUBLE.COMAPLEN 

CVB R15.DOUBLE 

BCTR R15.0 

CLI COMADECP.C'O' 

BNH NODICP 

STH R15.MOELENG 

ST R12.MOVEADDR 

MVC DECIN,0(R6) 

BAL R9.DECROUT 



L R15.FWORD 

AR R12.R15 

00297126 

LA R12,9(R12) 

B EN DTD 
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00284426 
00284526 
00284626 
00284726 
00284826 
00284926 
00285026 
00285126 
00285226 
00285326 
00285426 
00285526 
00285626 
00285726 
00285826 



00286026 
00286134 



00286326 

00286434 

00286526 

00286626 

00286726 

00286826 

00286926 

00287034 

00287126 

00287226 

00287326 

00287426 

00287526 

00287626 

00287726 

00287826 

00287926 

00288026 

00288126 

00288826 

00295626 

00295726 

00295826 

00295926 

00296026 

00296126 

00296226 

00296326 

00296426 

00296526 

00296626 

00296726 

00296826 

00296926 

00297026 



00297226 
00297326 
00297426 



SUBSTITUTE SHEET (RULE 26) 



WO 00/33202 
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DECROUT 



DECROVER 
MODEMOVE 
MODEDEC2 
MODEDECO 
00301 

COLORS 
CKRED 

CKBLUE 



EX R15.MOVEDITO 


00297526 


AR R12.R15 




00297626 




LA R12.1(R12) 


00297726 


MVI 0(R12),X'15* 


00297826 


LA R12 t 1(R12) 


00297926 


B NOSERRS 


00298026 


EQU 


00298126 


00298226 


MVC DECOUT.7(R14) 





00298326 

PACK DOUBLE, COMADECP GET # OF DEC PLACES 
00298426 

CVB R0.DOUBLE PUT IN DOUBLE WORD 



EX 


R15.MODEDECP 


MOVE TO TEMP AREA SPAD24 


00298626 




SR 


R15.R0 


GET LENGTH OF NON DEC PART 


EX 


R15.MODEDEC2 


MOVE IT OUT 


LA 


R14.DECOUT 




LR 


R1.R14 


SETUP REG 1 


LA 


R1.1(R1) 


SKIP OVER HEADER 


AR 


R1.R15 


ADD NON DEC LEN 


STH 


R15.HALFWORD 


SAVE THIS ADDRESS 


MVI 


0(R1),CV 


MOVE IN DEC POINT 


LA 


R1,1(R1) 


POINT TO DEC AREA 


LA 


R15,SPAD24 


DATA IS IN SPAD24 


AH 


R15.HALFWORD 


ADD NON DEC LEN 


LA 


R15,1(R15) 


SKIP OVER DEC POINT 


00299826 




ST 


R14.AWORD 


SAVE THIS ADDRESS 


LR 


R14.R0 


GET # DEC PLACES 


EX 


R14, MODEDECO 


MOVE FROM SPAD24 TO OUTPUT 


L 


R14 t AWORD 


RELOAD R14 


AR 


R1.R0 


POINT TO END OF AREA 


MVI 


0(R1),X'15' 


LINE FEED 


LH 


R15.MOVELENG 




LA 


R15,1(R15) 




LA 


R15,2(R15) 




L 


R14 t MOVEADDR 




EX 


R15,MODEMOVE 




BR 


R9 




MVC 


7f-*,R14) ( DECOUT 




MVC 


DECOUT(*-),SPAD24 




MVC 


0(*-*,R1),0(R15) 
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CL! 


COMACOLR.C ' 


BNH 


NOCOLR 


MVC 


QOUT(13) =C'<RONT COLOR: 


CLI 


COMACOLR,C'R' 


BNE 


CKBLUE 


MVC 


QOUT+ISfOS^C'RED^' 


B 


COLRD 


CLI 


COMACOLR.C'B' 


BNE 


CKGREEN 


MVC 


QOUT+^Oe^C'BLUE'V 


B 


COLRD 


BCTR 


R15.0 


UNPK 


SPADSKEY(9),DOUBLE2 



00298526 



00298726 
00298826 
00298926 
00299026 
00299126 
00299226 
00299306 
00299426 
00299526 
00299626 
00299726 



00299926 
00300026 
00300126 
00300226 
00300326 
00300426 
00300526 
00300626 
00300726 
00300826 
00300926 
00301026 
00301126 
00301226 



00301426 
00301526 
00301626 
00301726 
00301826 
00301926 
00302026 
00302126 
00302226 
00302326 
00302426 
00302526 
00302626 
00302726 
00302826 
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01 SPADSKEY+8.C0' 

LA R2.SPADSKEY 

LA R2,9(R2) 

SR R2.R15 

BCTR R2,0 

EX R15.UNPKDIT0 

00315226 

AR R12.R15 

00315326 

LA R12.1(R12) 

MVI 0(R12) ( X 

LA R12,1(R12) 

B NOSERRS 



NOMOVER 



MOVER 



LA 
B 

AR 
00316326 
LA 



AMOVE R 



USEPLEN 

OLENOK2 
LENDONE 

NOT01 



MVC 
BAL 

MVC 

MV2 

CLC 

BNE 

CLC 

BH 

MVC 

MVC 

B 

MVC 

MVC 

MVI 

CLC 

BNE 

MVC 

EQU 

MVI 

BAL 

MVC 
BAL 



R14,7(R14) 

AMOVER 

R14.R15 

R14,,8(R14) 
0{2.R14) ^C 1 
R10.TAGC 



OFFSET OF 7 + ADJ OF 1 



00(25,R12) =C'SIZE="-" MAXLENGTH="- U > ' 

NUMCHECK(2),COMAOLEN 

NUMCHECK(2),NUMZONE 

USEPLEN 

COMAOLEN.NUMZONE 
OLENOK2 

06(2,R12),COMAPLEN 
21(2,R12),COMAPLEN 
LENDONE 

06(2,R12),COMAOLEN 
21(2,R12),COMAOLEN 
QOUT+25,X , 15 t 
06(2,R12) =C'0r 
NOT01 

06(2 1 R12)=C , 02' 

25(R12).X'15' 
R10.TAGC 

0(5 t R12),=C , </TD , 
R10.TAGC 



BAL R10.ERROUT 

CLI COMAERET.C'E* 

BNE NOSERRS 

MVC QOUT(38)=C'<td><IMG SRC , 7ourXXXXxxxx.GIF"></td>' 

MVC 0{09,R12)=C'</OPTION>' 

MVI 9(R12),X'15' 

L R12.SAVE12 

BAL R10.TAGC 

LA R14,SPADSKEY 
00329826 

PACK DOUBLE,19(4,R4) 

CVB R1, DOUBLE 

AR R14.R1 

BCTR R14.0 

IC R15,0(R14) 



00302926 
00303026 
00314926 
00315026 
00315126 



00315626 
00315726 
00315826 
00315026 
00316026 
00316126 
00316226 



00316426 

00316526 

00316626 

00316726 

00316826 

00316926 

00317026 

00317126 

00317226 

00317326 

00317426 

00317526 

00317626 

00317726 

00317826 

00317926 

00318026 

00318126 

00318226 

00318326 

00318426 

00318526 

00318626 

00318726 

00318826 

00318926 

00319026 

00319126 

00319226 

00319326 

00319426 

00319526 

00319626 

00319726 

00319826 

00329726 



00329926 
00330026 
00330126 
00330226 
00330326 
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LA R15,1(R15) 
STC R15,0(R14) 
B DDREAD 



OPTOVER EQU 
ENODOPT EQU 
L 
L 
L 
L 

BR 

MOVEVAL MVC 
00331626 

MOVEDISP MVC 
00331726 

MOVEOKEY MVC 

CHEKDDS CLC 

ERRROUT EQU 
MVI 
MVC 



R0.DD0 

R1,DD1 

R14.DD14 

R15.DD15 

R2 

0(*-*,R12),0(R9) 

0<*-*,R12),0(R9) 

SPADSKEY(*-*),0(R9) 
0(*-*,R14),R6) 



COMASERR.C* * 
COMAERET, BLANKS 



L R14.COMAUP14 

L R15.COMAUP15 

L R1.COMAUP 

ZAP THISSEG, 



L 

MVC 

QUELLOOP EQU 



STH R14,HALFWORD SAVE LENGTH OF TARGET FIELD 
R6,COMAMVAR POINT TO BEGINNING OF INCOMMING DATA 



R1.COMAMVLN 
FINDFLDT.BLANKS 



GET TOTAL LENGTH OF THE DATA 



SAVR6F 



CLC COMAUSEG^X'OOOOOO* 

BE SAVR6F 

CP COMAUSEG^P'O' 

BE SAVR6F 

B CKFNDF 

MVI FOUNDIT,CY' 



TAGC 


EQU 




TAGS 


EQU 




NORES 


C 


R12.COMAQEND 




BNL 


TAG EN DC 




AP 


TAGCNT=PT 




AH 


R12.COMAQLLN 




B 


NOTAGC 




LH 


R14.COMAQLLN 



RESR12 CLI 0(R12),X'25' 



00330426 
00330526 
00330626 
00330726 
00330826 
00330926 
00331026 
00331126 
00331226 
00331326 
00331426 
00331526 



00331826 

00331926 

00332026 

00332126 

00332226 

00332326 

00332426 

00332526 

00332626 

00332726 

00332826 

00332926 

00333026 

00333126 

00333226 

00333326 

00333426 

00333526 

00333626 

00333726 

00333826 

00333926 

00334026 

00334126 

00334226 

00334326 

00334426 

00335003 

00340003 

00350003 

00360003 

00700003 

00710003 

00720003 

00721024 

00730003 

00740003 

00750003 

00760003 

00770003 

00780003 

00790003 

00800003 
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RESDONE 



NOTAGC 
TAG EN DC 



ERROR 

01190003 
MVI 
MVI 
BR 

RETURN EQU 
01240003 

MVC 

MVC 

MVI 

MVI 

ZAP 

ZAP 

ZAP 

ZAP 

ST 



BE 


RESDONE 




00820003 


CLI 


0(R12),X 15 




00830003 


nr 

BE 


RESDONE 




00840003 




0{R12),C* ' 




00850003 


BH 


RESDONE 




00860003 


RPTR 

DO 1 rs 


: R12.0 




00870003 


bO 1 


R14.RESR12 




00880003 


B 


NOTAGC 




00890003 


EQU 






00900003 


LA 


R12,1(R12) 




00910003 


BR 






00920003 


R10 




00930003 


AH 






00940003 


R12.COMAQLLN 




00950003 


MVI 


COMACONT.C'Y' 




00960003 


EXEC 


CICS LINK PROGRAM('RAMI01Q0')COMMAREA(COMMAREA) 00970003 


MVI 


LENGTH(COMACOML) 


00980003 


COMACONT ( C , ' 




00990003 




RO.COMAQADD 




01000003 


L 


POINT REG 0 TO SEGMENTS 


01010003 


LH 


R1COMAQLEN 


LOAD REG 1 WITH SEGMENT LENGTH 


01020003 






SR 


R15.R15 


SET LENGTH TO ZERO 




01030003 




IC 


R15=C 1 


SET PAD CHARACTER TO BLANK 


01040003 


SLA 


R 15,24 


MOVE PAD CHARACTER TO BITS 1-8 01050003 


LA 


R14,* 


R14 MUST BE A VALID ADDRESS 


01060003 


MVCL 


R0 ? R14 MOVE PAD CHAR FOR LENGTH OF SEG 


01070003 


CLI 


COMAQERR.C'Y' 




01080003 


SUCCESSFUL CREATE? 


01090003 


BE 


ERROR 




01100003 












01110003 


L 


R12.COMAQADD 




01120003 


MVI 


COMACONT.C * 




01130003 


B 






01140003 


NOTAGC 




01150003 
01160003 
01170003 




EQU 




01180003 







COMAERRF.C'Y' 
COMASERR,CV 
R10 GOBACK 



COMAOLEN, BLANKS 
COMAKEYE, BLANKS 
COMACOLR.C ' 
COMADECP.C ' 
COMARDMX, RDMAX 
COMARDCT.RDCNT 
COMATGMX.TAGMAX 
COMATGCT.TAGCNT 
R12.COMAUP01 



SFW001 



EXEC CIS RETURN 



01200003 
01210003 
01220003 
01230003 



01241003 
01242003 
01243003 
01244003 
01245003 
01245103 
01245203 
01245303 
01245403 
01245503 
01245603 
01245703 
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CONSTANTS 

ASIS DC C'N' Y=NO UPPER/LOWER CASE TRANSLATION 

BLANKS DC CL133" 

HEXZERO DC 30XW 

NUMZONE DC 24C0' 

HEXFF DC 30X'FF' 

CKTR TR 0(*-*,R6).UPCASE TRANSLATE TO UPPER CASE 

UPCASE DC X'0001 02030405060708090AOBOCODOEOF' 

DC X'101112131415161718191A1B1C1D1E1F' 

DC X702122232425262728292A2B2C2D2E2F' 

DC X'303132333435363738393A3B3C3D3E3F' 

DC X'404142434445464748494A4B4C4D4E4F' 

DC X'5051 52535455565758595A5B5C5D5E5F' 

DC X'606 1 62636465666768696A6B6C6D6E6F' 

DC X7071 727377475767778797A7B7C7D7E7F' 

DC X , 80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F' 

DC X'90D1 D2D3D4D5D6D7D8D99A9B9C9D9E9F' 

DC X'AOAI E2E3E4E5E6E7E8E9AAABACADAEAF' 

DC X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF' 

DC X'C0C1C2C3C4C5C6C7C8C9CACBCDCECF' 

DC X'DODI D2D3D4D5D6D7D8D9DADBDCDDDEDF' 

DC X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF' 

DC X'FOF 1 F2F3F4F5F6F7F8F9FAFBFCFDFEFF t 



DS 



OH 



LTORG 

END RAM1 1 TOO 
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01245803 

01245903 

01246003 

01247003 

01248003 

01249003 

01250003 

01260003 

01270003 

01280003 

01281003 

01282003 

01283003 

01284003 

01285003 

01286003 

01287003 

01288003 

01289003 

01290003 

01300003 

01310003 

01320003 

01330003 

01340003 

01350003 

01360003 

01370003 

01380003 

01390003 

01400003 

01410003 

01420003 
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APPENDIX G 

ENTRY PONT IS: I1S00 

ALL INFORMATION IN THIS DOCUMENT, INCLUDING THE TRANSPORT MECHANISM AND 
PROTOCOLS, ARE COPYRIGHT 1998 BY THE UNIVERSITY OF FLORIDA. ALL RIGHTS 
RESERVED. 

COMMAREA DSECT 

EVENTUAL COMMAREA FOR THIS MODULE 
COPY RARAMDAS 
USING RARAMDAS, R9 
COPY RAM I COM M 
USING COMMAREA, R5 
COPY RARAMIDP 
COPY RARATCPB 

DEFINITION OF REGISTERS 
COPY RARAREGS 

CICS EXEC INTERFACE DYNAMIC STORAGE AREA DSECT 
DFHEISTG 
COPY RARASPAD 



SAVETRAN 


DS 


CL4 






NORESPND 


DS 


C 










WORK AREAS 


WORKD 


DS 


D 




DOUBLE WORD CITATION NUMBER 


WORKD2 


DS 


D 




DOUBLE WORD MESSAGE NUMBER 


WORKF 


DS 


F 




FULLWORD WORK AREA 


TEMPTLEN 


DS 


F 




FULLWORD WORK AREA 


TEMPORARY STORAGE CONTROL 


DSTSiTM# 


DS 


H 


B 


ITEM NUMBER OF ENTRY IN QUEUE 


DSTSLEN 


DS 


H 


B 


TEMPORARY STORAGE DATA AREA LENGTH 


DSTSITPL 


DS 


H 


B 


ITEM NUMBER OF BIB 4 PACLINK 


DSTSDAAD 


DS 


A 


ACON 


» TEMPORARY STORAGE DATA AREA ADDRESS 


DSTSNAME 


DS 


CL8 


AN 


TEMPORARY STORAGE QUEUE NAME 


PROGRAM CONTROL. 




DSPCCALN 


DS 


H 


B 


COMMUNICATIONS AREA LENGTH 


DSPCNAME 


DS 


CL8 


AN 


PROGRAM NAME 


DSPCSAVE 


DS 


15F 


AN 


REGISTER SAVE AREA 


SAVER 14 


DS 


A 




SAVE R 14 ADDRESS 


SAVER 14A 


DS 


A 




SAVE R 14 ADDRESS 


DSR14SAV 


DS 


A 




SAVE R 14 ADDRESS 


STORAGE CONTROL 






DSSCLEN 


DS 


H 


B 


STORAGE LENGTH 


DSSCAD 


DS 


A 


ACON 


STORAGE ADDRESS 


DSNXTPOS 


DS 


A 




A(NEXT POSITION IN BUFFER) 


DSSNDADD 


DS 


A 




A(SEND BUFFER) 


DSSNDEAD 


DS 


A 




A(END OF BUFFER) 


DSRECEND 


DS 


A 




A(END OF RECORD) 


DSSNDLEN 


DS 


H 




LENGTH(SEND BUFFER) 


DSDEST 


DS 


255C 




DESTINATION 


DSDSTLN 


DS 


H 




LENGTH(DESTINATION) 


NEW i 


DATE STUFF 




DSUTIME 


DS 


PL8 




TIME FOR ASKTIME CALL 


DSDOM 


DS 


F 




DAY OF MONTH 


DSDOW 


DS 


F 




DAY OF WEEK 


DSMOY 


DS 


F 




MONTH OF YEAR 


DSYEAR 


DS 


F 




YEAR 


DSDATE 


DS 


CL10 




DATE 


DSAPPL 


DS 


CL8 




APPLID 


DSTIME 


DS 


CL10 




TIME 


DSJC 


DS 


CL72 




JOB STATEMENT 
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DSTRYCNT DS 
DSCRFLAG DS 
FTEMP DS 
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PL2 

C 

F 



68 

RETRY COUNT FOR HOST RESPONSE 
CARRIAGE RETURN LINE FEED FLAG 
TEMPORARY FULL WORK 



TCP-I STUFF 

DSNCOMM DS OF COMM AREA FOR EZACIC25(GETHOSTBYNAME 

DSRETCOD DS F RETURN CODE FROM GETHOSBYNAME CALL 

DSERRNO DS F ERROR NUMER 

HOSTENT DS A ADDRESS OF HOSTENT STRUCTURE 

DSNCMND DS CL4 REQUESTED OPERATION (GHBN) 

DSNAMLEN DS F LENGTH OF NAME TO LOOK UP 

DSNQTYPE DS CL1 TYPE OF QUERY 

CSHFIRST EQU 0 USE CACHE FIRST THEN GETHOSTBYNAME 

DSNONLY EQU 1 DO GETHOSTBYNAME CALL ONLY 

CSHONLY EQU 2 ATTEMPT QUERY USING CACHE ONLY 

DSHNAME DS CL256 HOST NAME TO LOOK UP 

DSNCOMMS EQU *-DSNCOMM 



TCPINPUT 


DS 


OF 


INPUT FROM THE TCP/IP LISTENER 


SOCKDESC 


DS 


p 


SOCKET DESCRIPTOR 


MVSADDR 


DS 


CL8 


MVS ADDRFSS SPAPF mFNTIFIFR 


TCPTASK 


DS 


CL8 


TCP/IP TASK mFNTIFIFR 
i vnir i nui\ iul_i>i t incr\ 


OATAAREA 


DS 


CL35 


CLIENT DATA ARFA 


FILLER 


DS 


C 


FILLER 


SOCKADDR 


DS 


OF 


SOCKET ADDRESS 


FAMILY 


DS 


H 


TCP/IP ADDRESSING FAMILY 


PORT 


DS 


H 


PORT DESCRIPTION 


ADDRESS 


DS 


F 


IP ADDRESS 


D2ER0 


DS 


XL8 


RESERVED (MUST BE ZEROS) 


TCPINS 


EQU 


'-TCPINPUT 


PARMLIST 


DS 


30A 




SOCFUNC 


DS 


CL16 


SOCKET FUNCTION NAME 


SOCRECV 


DS 


H 


SOCKET DESCRIPTOR 


PROTO 


DS 


F 


SOCKET PROTOCOL 


SOCTYPE 


DS 


F 


SOCKET TYPE 1=STREAM,2=UDP 


RETCODE 


DS 


F 


RETURN CODE 


ERRNO 




DS F 


ERROR NUMBER 


N BYTES 


DS 


F 


SIZE OF BUFFER FOR SOCKET READ 


FLAGS 


DS 


F 


FLAGS FOR SOCKET CALLS 


NAME 


DS 


OF 


SOCKET ADDRESS 


N FAMILY 


DS 


H 


TCP/IP ADDRESSING FAMILY 


NPORT 


DS 


H 


PORT DESCRIPTION 


NADDRESS 


DS 


F 


IP ADDRESS 


NDZERO 


DS 


XL8 


RESERVED (MUST BE ZEROS) 


CLNTHNDL 


DS 


H 


SOCKET DESCRIPTOR OF CLIENT MACHINE 


MAXSOC 


DS 


H 


MAX. NUM OF SOCKETS OPEN AT ONE TIME 


MAXNOS 


DS 


F 


HIGHEST SOC NUM ASSIGNED TO APP. 


AF 


DS 


F 


ADDRESSING FAMILY (MUST = 2) 


SUBTASK 


DS 


CL8 


SUBTASK IDENTIFIER 


BUF 


DS 


CL160 


BUFFER FOR SOCKET WRITE 


INBUF 


DS 


CL160 


BUFFER FOR SOCKET READ 


'SELECT CALL 


.VARIABLES 




OPTVAL 


DS 


OD 




OPTVONOF 


DS 


F 




OPTVLEN 


DS 


F 




OPTNAME 


DS 


F 




TIMEOUT 


DS 


OD 




TIMEOUTS 


DS 


F 




TIMEOUTM 


DS 


F 




RSNDMSK 


DS 


F 


READ SEND MASK 
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APPENDIX D 



TSO FOREGROUND HARDCOPY (RAMI0300) 
DSNAME=RA.PATNET 

RAMI0300 TITLE 'STATE MANAGEMENT FOR MIDAS' 

ALL INFORMATION IN THIS DOCUMENT, INCLUDING THE TRANSPORT MECHANISM AND 
PROTOCOLS, ARE COPYRIGHT 1998 BY THE UNIVERSITY OF FLORIDA. ALL RIGHTS RESERVED 
SUBROUTINE RAMI0300 



FUNCTION: 

EVALUATE DATA FROM TCP/IP REQUEST 

CREATE A NEW STATE KEY OR VALIDATE THE ONE THAT IS IN DATA 

DSECTS 

DSECT 

COPY RAMICOMM 
COPY RARAMDAS 
COPY RARMIDP 
USING RARAMIDP.R12 
MAXTRIES EQU 10 

COPY REGISTER DEFINITION 
COPY RAREGS 
DYNAMIC STORAGE 

TEMP STORAGE HERE 





DFHEISTG 




COPY 


RARSF 


COMLTH 


DS 


H 


CMLENGTH 


DS 


H 


SAVETRY 


DS 


H 


NUMCHEK 


DS 


CL15 


UNPKTIME 


DS 


CL15 


MIDASSTE 


DS 


CL8 


UPDATE 


DS 


C 


TIMEOUT1 


DS 


PL4 


T1MEOUT2 


DS 


PL4 


TCPDSTAT 


DS 


OCL16 


TCPDSTTN 


DS 


CL8 


TCPDSSTTE 


DS 


CL8 


FINDFLD 


DS 


CL8 


FINDFLDT 


DS 


CL79 


UPDATEM 


DS 


C 


FACTS REQ 


DS 


C 


SAVETOPC 


DS 


CL10 


SAVEPROF 


DS 


C 


SAVEMVAR 


DS 


CL4 


SAVEMVLN 


DS 


CL4 


SAVEEXSS 


DS 


CL10 


SAVEPROC 


DS 


CL10 


STUID 


DS 


CL20 



PROGRAM RAMI0300 STARTS HERE 

RAMI0300 DFHEIENT CODEREG=R,8) 

RAMI0300 AMODE 31 

RAMI0300 RMODE ANY 

EXEC CICS HANDLE CONDITION DSIDERR(ERROR) 

ERROR(ERROR) TERMIDERR(ERROR) SYSIDERR(ERROR) 
ISCINVREQ(ERROR) INVREQ(ERROR) (OERR(ERROR) 
DISABLED(ERROR) ILLOGIC(ERROR) LENGERR(ERROR) 
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NOTAUTH(ERROR) DUPREC(NOMDAS) 
EXEC CICS HANDLE CONDITION NOTFND(NOMDAS) NOTOPEN(ERROR) 
START EQU 

CLC EIBCALEN=H'0' 
BNH RETURN 2 
L R9.DFHEICAP 
USING RARAMDAS.R9 

LA R5,MDASLEN GET LENGTH FOR TOP OF MDAS 

AR R5.R9 ADD IT TO R9 

USING COMMAREA.R5 



MVC COMLTH.COMACOML SAVE COMACOML 

SR R14.R14 CLEAR REG 

LA RKMDASLEN GET LENGTH FOR TOP OF MDAS 

AH R14.COMLTH ADD TO GET TOTAL NEEDED 

STH R14.CMLENGTH SAVE IT 

SPACE 

LH R14=H'10' 

LA R15.SAVEPROC PUT DATA HERE 

MVC COMAFNDF =C'PROCESS' DATA IDENTIFIER 

BAL R4.GETDATA GO GET IT 

CLC SAVEPROC, BLANKS 

BNH NOSTATE YES, CONTINUE 



EXEC CICS HANDLE CONDITION NOTFND(NOTPROC) NOTOPEN(NOTPROC) 

LH R14=H*20' 

LA R15.STUID PUT DATA HERE 

MVC COMAFNDF,=C*STUID ' DATA IDENTIFIER 

BAL R4.GETDATA GO GET IT 

MVI COMAFTYP.C'U* 

LA R14.9 PUT DATA HERE 

LA R15 ( SAVEEXSS PUT DATA HERE 

MVC COMAFNDF =C'MDASSTID' 

BAL R4.GETDATA GO GET IT 



MVI COMAFTYP.C'U' 

LA R14.9 PUT DATA HERE 

LA R15.SAVEEXSS PUT DATA HERE 

XC NUMCHEK.NUMCHEK 



CKCONTN 



NONSSN 



!!!! HARD CODED TIMEOUT 1 FOR NOW AT 5 MINUTES!!!' 
CLI TCPDSTTE.C'M' 
BNE NOMDAS 

READ FILE FOR STATE CHECK 

EXEC CICS READ DATASET( ' RAM DAS ' ) SET(R2) 

LENGTH(HALFWORD) RIDFLD(TCPDSTTE)UPDATE 



CLC CMLENGTH.HALFWORD 
BL ERROR 
CLC DOUBLE, DOUBLE2 
BH TIMEOUTL 
BNH CKCONTN 

EXEC CICS START TRANSID('MI06') 



B 
EQU 
CLC 
BNH 
MVC 
CLC 



STARTOVR 

SAVEXSS, BLANKS 
NONSSN 

COMAEXSS(9),SAVEEXSS 



COMASIGN=C 



MAKE SURE LENGTH IS OK 
ERROR IF TOO LONG FOR AREA 
I 

IT HAS BEEN TOO LONG, START OVER 
NOT OVER, CONTINUE 

IT HAS BEEN TOO LONG, START OVER 

WAS A NEW SSN ENTERED? 

NO, CONTINUE 

YES. PUT IT IN COMMAREA 



ADMINISTRATIVE USER? 
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WSNDMSK 


DS 


F 


WRITE SEND MASK 


ESNDMSK 


DS 


F 


EXCEPTION SEND MASK 


RRETMSK 


DS 


F 


READ RETURN MASK 


WRETMSK 


DS 


F 


WRITE RETURN MASK 


ERETMSK 


DS 


F 


EXCEPTION RETURN MASK 


SMAXSOC 


DS 


F 


LARGEST SCK. DES,. + 1 


SR1 


DS 


F 


SAVE R1 


SAVEQLEN 


DS 


H 


QUEUE LENGTH 


SAVEQITE 


DS 


H 


QUEUE ITEM NUMBER 


CODE 


DS 


H 


STARTCODE 


OUIVlfVJLcN 


no 

DS 


H 


INCOMMING COMMAREA LENGTH 


FROMTCP 


DS 


C 


STARTED FROM TCP/IP REQUEST 


GOTPROC 


DS 


C 


GOT A PROCESS READ 


SAVER6 


DS 


F 


SAVE REG 6 


SAVER 15 


DS 


F 


SAVE REG 15 


DATALENG 


DS 


F 


LENGTH OF DATA FIELDS 


GOTDATA 


DS 


c 


LENGTH OF DATA FIELDS 


PLACE 


DS 


PL1 


LENGTH OF DATA FIELDS 


WKLEN5 


DS 


CL5 


CHARACTER FIELD FOR BUFFER LENGTH 


WKLEN6 
* 


DS 


CL6 


CHARACTER FILED FOR BUFFER LENGTH 


EMAILT01 


DS 


CL79 


1 st RECP EMAIL ADDRESS 


EMAILT02 


DS 


CL79 


2 nd RECP EMAIL ADDRESS 


EMAILT03 


DS 


CL79 


3 rd RECP EMAIL ADDRESS 


EMAILT04 


DS 


CL79 


4 th RECP EMAIL ADDRESS 


E MAILTOS 


DS 


CL79 


5 th RECP EMAIL ADDRESS 


EMAILFROM 


DS 


CL79 


EMAIL ADDRESS OF SENDER 


EMAILSUB 


DS 


CL79 


EMAILSUB J ECT LINE 



MAINLINE 



STARTXCT 



GOTAREA 



CKRPORT 



DS 

EXEC 

CLC 

BNE 

EXEC 

MVC 

B 

EQU 
L 

CLC 
BNH 
EQU 
CLC 
BL 

UNPK 
Ol 

BNH 



OH 

CICS ASSIGN STARTCODE(CODE) 

CODE^C'SD* 

STARTXCT 

CICS RETRIEVE SET(R5) LENGTH(COMMLEN) 
EIBCCLEN.COMMLEN UPDAT EIBCALEN 
GOTAREA 



R5.DFHEICAP 

EIBCALEN=H*0' 

RETURN 



LOAD ADDR COMM.AREA 
COMMAREA GREATER THAN 0 



EIBALEN.COMACOML 
RETURN 

COMAMQNM.EIBTASKN 

COMAMQNM+7,C , 0' 

RETURN 



COPY TD QUEUE PREFIX 



BAL R14.IPAD2BIN 

LA R14.5 

LA R15SAVEPORT 

MVC SAVEPORT.BLANKS 

MVC COMAFNDF=C'PORTNUMB' 

BAL R4.GETDATA 



PUT DATA HERE 



DATA IDENTIFIER 
GO GET IT 



CLC SAVEPORT.BLANKS 

BNH RETURN 

PACK DOUBLE.SAVEPORT 

CVB R14, DOUBLE 

STH R14.NPORT 
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CKRINIT 



GOTINIT 



NOTMI2E 



AFTGINFO 



NOWAIT 
CUTOFF 



EQU 


• 




XC 


SAVEINIT.SAVEINIT 




LA 


R14.50 




ST 


R14.SAVELINI 


INIT THE INIT STRING TO 50 


LA 


R15.SAVEINIT 


PUT DATA HERE 


MVC 


COMAENDE =C*RETNDATA' 


DATA IDENTIFIER 


BAL 


R4.GETDATA 


GO GET IT 


CLC 


SAVEINIT(50),BLANKS 


WAS SOMETHING SENT? 


BL 


RETURN 


NOT AT LEAST BLANKS, GET OUT 


BH 


GOTINIT 


SOMETHING THERE, CONTINUE 


XC 


SAVELINI.SAVELINI 


NOTHING THERE, ZERO LENGTH 


EQU 




BAL 


R14.GETBUG 


GETMAIN A RUFFFR 


B 


ATFGINFO 




EQU 






BAL 


R14.GETBUF 


GETMAIN A BUFFER 


BAL 


R14.GETINFO 


GET THE NECESSARY CALL INFO 


EQU 






IECT TO 






MVI 


DSCRFLAG.C ' 


CLEAR<CR><LF> FLAG 


BAL 


R14.CONNHOST 




CLC 


NPORT =H'25' 




BE 


DOEMAIL 




BAL 






BNE 


CUTOFF 


NO RYF 


MVC 


COMAIBFN,=C3' 




MVI 


SAVEWAIT.C'N' 




MVC 


COMAPTAR.COMATOPC 


SAVE TARGET REQUEST 


LR 


R0.R9 


ADDRESS OF DATA 


AH 


R0=AL2(MDASLEN) 


BUMP TO WHERE COMMAREA GOES 


LR 


R14.R5 


ADDRESS OF COMMAREA 


LH 


R15.COMACOML 


LENGTH OF COMMAREA 


LR 


R1.R15 




MVCL 


R0,R14 


MOVE THE DATA 


LH 


R15.COMACOML 


LENGTH OF COMMAREA 


AH 


R 1 5, = AL2 (M D AS LEN ) 


ADD LENGTH OF COMMAREA 


STH 


R15.HALFWORD 


SAVE LENGTH OF DATA 



REWRMDAS EQU 

EXEC CICS REWRITE DATASET(' RAM DAS') 

LENGTH(HALFWORD) FROM(RARAMDAS) 



PUTCONT 



CLC RETCODE,.DFHRESP(NOTFND) 

BE GOCLOS 

CLC RETCODE.DFHRESP(NOTOPEN) 

CLC RETCODE ( DFHRESP(DISABLED) 

BE GOCLOS 

CLC RETCODE.DFHRESP(NORMAL) 

BNE RETURN 

B GOCLOS 

MVC COMAMESS(8)=C , CONTINUE' 

EXEC CICS UNLOCK DATASET(' RAM DAS') 



WAS IT NOT FOUND 



WAS NOT OPEN 
WAS IT DISABLED 

WAS IT NORMAL 
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GOCLOS EQU 

EXEC CICS DEQ RESOURCE (MIDASSTE) LENGTH(8) NOHANDLE 
BAL R14.SENDCLOS 
B RETURN 

DOEMAIL BAL R14.SENDHELO 

BAL R14,SNDMFROM 

BAL R14.SNDMTO 

BAL R14.SNDMDATA 

SR R15.R15 
END TEST 



IPAD2BIN 



MADDLOOP 



ZAP1 



ZAP2 



2AP3 



ZAPADDR 



PUTADDIN 



NOADDR 



EQU 

ST 

LA 

LA 

ZAP 

CLI 

BE 

CLI 

BE 

CLI 

BE 

CLI 

BE 

CLI 

BE 

B 

EQU 
PACK 
LA 
B 

EQU 
PACK 
LA 
B 

EQU 
PACK 
LA 
B 

EQU 

ZAP 

CVB 

STH 

EQU 

MVC 

LA 

AP 

CP 

BL 

EQU 

L 

BR 



R14.SAVER14A 

R14.SAVEIPAD 

R15,NADDRESS 

PLACE=P*0' 

1(R14),C7 

ZAP1 

1<R14),C ' 
ZAP1 

2(R14) f C7 

ZAP2 

3(R14),C7 

ZAP3 

3(R14),C ' 

ZAP3 

NOADDR 
* 

HALFWORD,0(1,R14) 

R14,2(R14) 

ZAPADDR 

HALFWORD ( 0(2,R14) 

R14,3(R14) 

ZAPADDR 
* 

HALFWORD ( 0(3,R14) 

R14,4(R14) 

ZAPADDR 
* 

DOUBLE.HALFWORD 

R1, DOUBLE 

R1.HALFWORD 
* 

0(1,R15) ( HALFWORD+1 

R15,1(R15) 

PLACE =PT 

PUCE=P'4' 

MADDLOOP 

R14.SAVER14A 
R14 



ROUTINE TO GETMAIN AN AREA TO BE USED TO BUILD MAIL MESSAGE 



SPACE 1 
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GOTMONTH 



CONNHOST 



MVC 8{3.R2).4(R14) 
MVC 12(4,R2).DSDATE+6 
MVC 17(8,R2),DSTIME 
SPACE 1 
AP 
L 

LA 
MVC 
MVC 
MVC 
MVC 
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MOVE IN THE MONTH TEXT 
MOVE IN THE YEAR 
MOVE IN THE TIME 



ED 
L 

LA 
LH 
LA 

BCTR 

EX 

AH 

MVI 

L 

LA 
LH 

BCTR 

EX 

BR 



WORKD2,=PL8T 
R2.DSNXTPOS 
R2,SUBJ(R2) 
1<10,R2),DSDATE 
12(8 ( R2).DSTIME 
21(5,R2)=C'Parf 

25(4,R2) =X'402 1202020* SET MASK 
25(4,R2),WORKD2+6 CURRENT MESSAGE NUMBER 



MESSAGE NUMBER FOR SUBJECT LINE 
START OF BUFFER 
WHERE TO MESSAGE NUMBER 
DATE FOR SUBJECT LINE 
TIME FOR SUBJECT LINE 



R2.DSNXTPOS 
R2,DEST1@9R2) 
R15.DSDSTLN 
R4.DSDEST 
R15.0 

R15.MOVEDEST 

R2.DSDSTLN 

0(R2),C'>' 

R2.DSNXDEST 

R2,DEST2@(R2) 

R15.DSDSTLN 

R15.0 

R15.MOVEDEST 
R14 



START OF BUFFER 
WHERE TO WRITE DESTINATION 
LENGTH OF EMAIL ADDRESS 
A(DESTINATION) 
DECREMENT FOR EXECUTE 
MOVE EMAIL ADDRESS 
LENGTH OF EMAIL ADDRESS 
CLOSE RCPT TO: FIELD 
START OF BUFFER 

WHERE TO WRITE DESTINATION 
LENGTH OF EMAIL ADDRESS 
DECREMENT FOR EXECUTE 
MOVE EMAIL ADDRESS 



ROUTINE TO CONNECT TO SMTP.NERSP.NERDC PORT 25 VIA TCP/IP 
R1, SAVER 14 

SOCFUNC =CL16'SOCKET SOCKET FUNCTION TO CALL 
e^™^ ADDRESSING FAMILY 

PRO^-P?' 1 ' . ,e e r^ SET S0CKET ^ 10 STREAMS 

E P ^ 0 S0 0 ^^ DEFAULT PR ° TOC0L F0R S ™AMS 

SOCTYPE.PROTO.ERRNO.RETCODE) 
VL,MF=(E. PARMLIST) 
RETCODE =F'-1* 
LE OS ERROR 



ST 
MVC 
MVC 
MVC 
MVC 
CALL 



CLC 
BE 
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TSO FOREGROUND HARDC 



MVC SOCRECV.RETCODE+2 SOCKET HANDLE FROM SOCKET CALL 
CLC NADDRESS =F'(V CHECK TO SEE IF IP WAS SENT 

BH GOTIPADR YES, USE IT 

LOOKUP THE IP ADDRESS OF EMAIL HOST (GETHOSTBYNAME) 



USING RARATCPB.R12 



BLDRQST 



BLDRESP 



GETQ4SND 



MVZ 

CLC 

BNE 

PACK 

CVB 

A 

ST 

CVD 

UNPK 

Ol 

CLI 

BE 

L 

MVC 
B 

LA 
MVC 
MVC 
MVC 
MVC 
MVI 
MVI 
MVC 
MVC 
MVC 
MVC 
EQU 
BAL 

L 
L 

SR 
C 
BE 
ST 
L 

ST 
MVC 
MVI 
MVC 
MVC 
MVI 
EQU 



NUMCHECK96),COMATLEN 

NUMCHECK(6),NUM20NE 

SOCKERR 

DOUBLE,COMATLEN 
R14, DOUBLE 
R14=A(TCPBLEN) 
R14JEMPTLEN 
REDOUBLE 
COMATLEN, DOUBLE 
COMATLEN+S.C'O' 
COMAPROF.C'Q' 
BLDRQST 
R12.COMACNTA 
TCPBBLEN.COMATLEN 
BLDRESP 
R12.CNTLBUF 
CNTLBUF.BLANKS 
TCPBBLEN.COMATLEN 
TCPBTRAN.SAVETRAN 
TCPBSYST=C'FEDr 
TCPBCOMM,C0* 
TCPBENC.C'O' 



USE TCP BUFFER DSECT TO ADDRESS 
CHECK FOR NUMERIC IN TOTAL LENGTH 



PACK IT 

CONVERT TO BINARY 

ADD LENGTH OF CONTROL BUFFER 

SAVE IT 

CONVERT TO PACKED DEC 
UNPACK IT 
FIX LAST BYTE 
Creating a request 
Yes, do it 

no, get the original cntl block 

SET TOTAL LENGTH TO BE SENT 



SET ADDRESS OF AREA FOR SEND 
INIT TO BLANKS 

SET TOTAL LENGTH TO BE SENT 
SET TRANSACTION TYPE 
SET SYSTEM, FDET IMAG, ETC 
SET COMPRESS METHOD 
SET ENCRYPT METHOD 
TCPBREQS =C'FLACENTSERV* SET REQUESTING SERVER 

TCPBDATS.COMAFIC1 SET DATA HOST 

SET REQUEST TYPE NUMBER 
SET MESSAGE STATE 



TCPBREQN,=C'01 ' 
TCPBMESS^C'Or 



R14.SENDHOST 

R14,A=(TCPBLEN) 
R15JEMPTLEN 
R15.R14 
R15.=F0' 
NOMORED 
R15.TEMPTLEN 
R12.DSSNDADD 
R 12.COM AQADD 
COMAQ2DO=C , READ' 
COMAQSTO 

COMAQKEY.COMAMQNM 
COMAQITE =HT 
COMAQERR.C'N' , 



SENT TO THE HOST 

GET WHAT WAS SENT 

GET REMAINING LENGTH 

SUBTRACT WHAT IS WAS SENT 

IS THERE MORE? 

NO, DO NOT READ QUEUE 

SAVE WHAT IS LEFT 

SET ADDRESS OF AREA FOR SEND 

AREA TO BE FILLED BY READ 

SET TO READ QUEUE 

PUT IN ALLOCATED AREA 

SETTS QUEUE NAME 

SET TO ITEM 1 

RESET QUEUE ERROR FLAG 



MVC COMAQLEN=AL2(MAXSNDLN) 

EXEC CICS LINK PROGRAM('RARASOKY') COMMAREA(COMMAREA) 
LENGTH(COMACOML) 



CLI COMAQERR.C'Y* 

BE SOCKERR 

LH R14.COMAQLEN 

ST R14.NBYTES 

L R15JEMPTLEN 

SR R15.R14 



SUCCESSFUL READ? 

NO, GO TO ERROR 

SAVE AMOUNT READ 

SET TO SEND WHAT WAS READ 

GET REMAINING LENGTH 

SUBTRACT WHAT IS BENIG SENT 
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NOTLAST 



MOVEEND 
BLANKR12 



NULLR12 



SNDMTO 



SNDMT02 



C 

BNE 

MVI 

ST 

BAL 

LH 

AH 

STH 

CLI 

BNE 

BCT 

MVI 

BR 

EQU 

ST 

LA 

LR 

SR 

ICM 

LH 

MVCL 
L 

BR 

EQU 

ST 

LA 

LR 

SR 

ICM 

LH 

MVCL 
L 

BR 
EQU 
ST 
CLC 
BNH 
BAL 
MVC 
MVC 
MVC 
BAL 
MVI 
BAL 
BAL 
EQU 
CLC 
BNH 
BAL 
MVC 
MVC 
MVC 
BAL 
MVI 
BAL 
BAL 
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R15=F'0' 

NOTLAST 

LASTSEND.C'Y* 

R15.TEMPTLEN 

R14.SENDHOST 

R14.COMAQITE 

R14=HT 

R14,COMAQITE 

LASTSEND.C'Y' 

GETQ4SND 

R14.ENDLOOP 

1(R15),CV 

R1 

R1.SR1 
R0,* 

R14.R12 

R1.R1 

R1,8=C" 

R15=AL2(MAXSNDLN) 

R14.R0 

R1.SR1 

R1 

R1.SR1 
R0,* 

R14.R12 

R1.R1 

RI.S^X'OO* 

R15=AL2(MAXSNDLN) 

R14.R0 

R1.SR1 

R1 

R14.SAVER14 

E MAI LT01 t BLANKS 

SNDMT02 

R1NULLR12 

NBYTES=F'88' 

0(09,R12),TOMSG 

09(79 ( R12),EMAILTO1 

R1.FINDEND 

DSCRFLAG.C'Y' 

R14.SENDHOST 

R14.HOSTRESP 



IS THIS THE LAST ONE? 
NO, DO NOT SET FLAG 
SET LAST FLAG 
SAVE WHAT IS LEFT 
SEND TO THE HOST 
GET ITEM 
ADD ONE 

PUT NEXT ITEM NUMBER 
WAS IT THE LAST ONE 
NO, GET THE NEXT ONE 

END BRACKET 



MOVE BLANKS TO AREA 



MOVE BLANKS TO AREA 



SENDHDR 



EMAILT02, BLANKS 
SNDMT03 
R1.NULLR12 
NBYTES^FW 
0(09 ( R12), TOMSG 
09(79. R1 2), EMAILT02 
R1.FINDEND 
DSCRFLAG/Y* 
R14.SENDHOST 
R14.HOSTRESP 
SEND THE MESSAGE HEADER AND 
LA R4JOPHEAD# 
MVC NBYTES=F'80' 
BAL R14.SENDHOST 
S R10=FW 



LENGTH OF MESSAGE 
FIRST PART OF MESSAGE 
RECEIPIENT 

SET <CR><LF> FLAG ON 
SENT TO THE HOST 
WAIT FOR RESPONSE 



LENGTH OF MESSAGE 
FIRST PART OF MESSAGE 
RECEIPIENT 

SET <CR><LF> FLAG ON 
SEND TO THE HOST 
WAIT FOR RESPONSE 
GET THE RESPONSE FROM THE HOST 
NUMBER OF LINES IN THE HEADER 
LENGTH OF CARD IMAG 
SEND TO THE HOST 
SUBTRACT FROM LENGTH 
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WAIT FOR RESPONSE 

NEXT CARD IMAGE 

LOOP TILL END OF HEADER 



BAL R14.HOSTRESP 
LA R3.80(R3) 
BCT R4.SENDHDR 
SPACE 1 

SEND THE REST OF THE MESSAGE WITHOUT GETTING A RESPONSE FROM THE HOST 
SNDREST EQU 

R10.NBYTES . NUMBER OF BYTES TO SEND 

SOCFUNC,=CL1 6'SEND SOCKET FUNCTION = SEND 
FLAGS,=F*0' CLEAR FLAG VARIABLE 

EZACIC04 ( ((R3),NBYTES),VL,MF=(E,PARMLIST) TRANS, TO ASCII 



ST 
MVC 
MVC 
CALL 
SPACE 

CALL EZASOKET,(SOCFUNC t SOCRECV.FLAGS, 
NBYTES,(R3),ERRNO,RETCODE), 
VL,MF=(E,PARMLIST) 

SPACE 



L R1.RETCODE 

CLC R1=F ( -r 

BE LEOS 

BAL R14.HOSTRESP 

SPACE 

L R14.SAVER14 
SEND QUIT COMMAND TO HOST 
SENDQUIT EQU 

ST R14.SAVER14 

MVC 0(1,R3),=C'QUir 

MVC NBYTES=F'4' 

MVI DSCRFLAG.C'Y' 

BAL R14.SENDHOST 

BAL R14.HOSTRESP 

L R14.SAVER14 

BR R14 



POSITIVE RETURN CODE? 
NO, MUST BE AN ERROR 
WAIT FOR RESPONSE 

RESTORE RETURN REGISTER ADDRESS 



RESTORE RETURN REGISTER ADDRESS 

MOVE IN QUIT COMMAND 

LENGTH OF COMMAND 

SET <CR><LF> FLAG ON 

SEND TO THE HOST 

WAIT FOR RESPONSE 

RESTORE RETURN REGISTER ADDRESS 

RETURN 



SEND CHUNK OF THE MESSAGE TO THE HOST (ADDING CRLF) 
SENDHOST EQU 

R14.DSR14SAV 
SOCFUNC=CL16'SEND* 
FLAGS^FO' 
BUF,0(R12) 



TRANSEND 



ST 
MVC 
MVC 
MVC 
EQU 



SAVE RETURN REGISTER 
SOCKET FUNCTION = SEND 
CLEAR FLAG VARIABLE 
SEE WHATS GOING 



TRANSLATE TO ASCII WITH E2ACIC04 



CALL E2ACIC04 t ((R12),NBYTES), VL,MF=(EPARMLIST) TRAN TO ASCII 
SPACE 



CLI DSCRFLAG.C'Y' 
BNE E2ASEND 
SPACE 

L R14.NBYTES 

AR R14.R12 

MVC Otf.R-U^X'ODOA' 

L R14.NBYTES 

SPACE 



<CR><KF> FLAG SET ? 

NO, JUST SEND WHAT IS IN BUF 

NUMBER OF BYTES 
BUMP POINTER PAST TEXT 
MOVE IN ASCII <CR><LF> 
NUMBER OF BYTES 



CLC RETCODE.NBYTES 

BNL SENTALL 

CLC RETCODE=F'-1' 

BNH LEOS 

L R1.RETCODE 

AR R12 ( R1 

L R1NBYTES 

S R1.RETCODE 



DID SEND IT ALL 
YES, CONTINUE 
CHECK RETURN CODE 
TCP/IP ERROR 
NUMBER OF BYTES SENT 
BUMP THE RECORD POINTER 
NUMBER OF BYTES INTENDED 
SUBTRACT THE NUMBER SENT 
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LTR R1.R1 

BNP R1.NBYTES 

ST R1.NBYTES 

LH R14.HALFWORD 

BCTR R14.0 

LTR R14.R14 

BNP LEOS 

STH R14.HALWFWORD 
B EZASEND 
SENTALL L R14.DSR14SAV 
BR R14 



TEST REGISTER 

IF NOT POSTIVE.ERROR 

NUMBER OF BYTES STILL LEFT 

CHECK LOOP COUNT 

DECREASE BY ONE 

TEST REGISTER 

MAXIMUM TRIES DONE, ERROR 

SAVE VALUE 

GO SEND AGAIN 

RESTORE RETURN REGISTER 

RETURN 



AFTSELT 



READCALL 



TRANRESP 

AFTRANS 

TRANRES 
AFTRAN 
NORESP 
HOSTREX 



READ RESPONSE FROM MAIL HOST 
VL,MF=(E,PARMLIST) 
SPACE 

EQU 
CLC 
BE 
CLC 
BH 
CLC 
BE 
B 

MVC 
XC 
MVC 
SPACE 

CALL EZASOKET.(SOCFUNC,SOCRECV, 
NBYTES,INBUF,ERRNO,RETCODE), 
VL, MF=(E, PARMLIST) 

SPACE 



RSNDMSK,RRETMSK 
READCALL 
RETCODE,=F0' 
READCALL 
RETCODE=F'-1' 
LEOS 
NORESPN 
SOCKFUNCK =CL1 6'READ' 
INBUFJNBUF 
NBTES=ALL(L'INBUF) 



CHECK READ RETURN MASK 
GOT SOMETHING, GO GET IT 
CHECK RETURN CODE 
GO READ SOCKET 
IS IT NEGATIVE 1 
YES, MUST BE A TCP/IP ERROR 



SOCKET FUNCTION = READ 
CLEAR BUFF 
LENGTH TO READ 



CLC 

BE 

BH 

CLC 

BE 

B 

EQU 
CALL 

EQU 

BE 

B 



RETCODE =F0' 

NORESPN 

TRANRESP 

RETCODE=F-r 

LEOS 

NORESPN 



DID WE GET ANYTHING? 

NO, MUST NOT BE SENDING ANYTHING 

YES, GO TRANSLATE TO EBCDIC 

IS IT NEGATIVE 1 

YES, MUST BE A TCP/IP ERROR 



E2ACICOS,(INBUF,RETCODE),VL,MF=(EPARMLIST) TRAN. EBCDIC 



LEOS 
NORESPN 



YES, MUST BE A TCP/IP ERROR 



CALL E2ACICOS,((R12),RETCODE),VL,MF=(E,PARMLIST) TRAN, EBCDIC 



EQU 

MVC BUF,0(R12) 
EQU 
MVI 
L 

BR 



NORESPND.C'Y* 
R14.DSR14SAV 
R14 



RESTORE RETURN REGISTER 
RETURN 



ERROR ROUTINES 



LEOM DS 

EXEC 



LEOC EQU 
GMAINERR EQU 
MVC 



OH 

CICS ABEND, 

ABCODE('LEOM'), 

CANCEL 



ABEND THIS TASK 



LEM010RC,LEM010SG GETMAIN ERROR 
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NOTOPEN 
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LEOL 

ERROR 

PROGERR 



LEOS 
SOCKERR 



LEOW 
QUEERR 

MVC 

RETURN 



SAVEDEST 

MOVED ET 

MOVELINE 

LOOKEXEC 

MOVEBUF 

MVBLANKS 

MAXSNDLN 

BLANKS 

NUMZONE 

PIN1111 

SUBJMSG 

FROMMSG 

TOMSG 

HELLOMSG 

HEADER 

RCPTTO 

DEST1@ 



TOPHEAD# 

DATE 

DATE© 



MVC 
B 

EQU 
MVC 
B 

EQU 
MVC 
B 

EQU 
EQU 
EQU 
MVC 
MVC 
B 

EQU 

EQU 

MVC 

MVI 

MVC 

L 

B 

EQU 
EQU 

MVC 
EQU 
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MESSAGE(13) =C*GETMAIN ERROR' 
RETURN 

MESSAGE(16,=C'RECORD NOT FOUND* 
RETURN 

MESSAGE (13) =C'FILE NOTOPEN* 
RETURN 



LEM01ORCLEM010LG PROGRAM LOGIC ERROR! 
MESSAGE(20) =C 'PROGRAM LOGIC ERROR!' 
RETURN 



LEM010RC.LEM010SK TCP/IP SOCKETES ERROR 
COMAERRF.C'Y* 

MESSAGE(20) =CTCP/IP SOCKETS ERROR! 

R15.ERRNO LOAD THE ERROR NUMBER INTO R15 

RETURN 



LEM010RC.LEM010EEQ TS QUEUE ERROR 
MESSAGE(14) ,=CTS QUEUE ERROR' 



EXEC CICS DEQ RESOURCE(MIDASSTE) LENGTH(8) NOHANDLE 
EXEC CICS RETURN 

CONSTANTS AND EXECUTED INSTRUCTIONS 

COPY RAMIGETP 
LTORG 

MVC DSDEST(*-*),0(R4) 
0(*-*,R2),0(R4) 
0r-*,R10),0(R4) 

0(-*,R4),CRTBLLOOK FOR A <CR> (NOTE: CLOBBERS R2) 
0(*-*,R12) ( 0(R3) MOVE MESSAGE CHUNK TO BUFFER 

0r-*,R12) ( BLANKS 
32767 



MVC 
MVC 
TRT 
MVC 
MVC 
EQU 



DC CL256' 4 

DC CL28000000000000000000000000000000' 

dc cL^mr 

DC CL80'SUBJECT 

DC CL80'MAIL FROM:<' 

DC CL80'RCPTTO:<' 

DC CL80'HLO NERMVS.NERDCUFL.EDU' 

DC CL80'MAIL FROM: <isis@nervm. nerdc.ufl.edu>' 

DC CL10'RCPTTO:<' 

EQU (*-HEADER) 

DC CL70' * 

DC CL80'DATA' 

EQU (*-HEADER)/80 

DC CL15'DATE: 

EQU (^HEADER) 

DC CL65' ' 

DC CL80'From: 
.edu>' 



The FUN system <isis@nervm,nerdc.uflx 
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DC 

Subject: EQU 
DC 
DC 

DEST2@ EQU 
DC 
DC 

HDR# EQU 
ENDER DC 
DC 
DC 

ENDERS EQU 
ENDER# EQU 

•CRTBL DC 
ORG 
DC 
ORG 

MAX.SECONDS 

FIONBIO DC 

SO_REUSEADDRE 

SO_KEEPALIVE 

SO_BROADCAST 

SOJJNGER 

SOJDOBINLINE 

SO_SNDBUF 

SO_ERROR 

SOJTYPE 



DOWTABLE 


DS 




DC 




DC 




DC 




DC 




DC 




DC 




DC 


SATURDAY 


DC 


DOW$ 


EQU 


oom 


EQU 


MONTABLE 


DS 




DC 




DC 




DC 




DC 




DC 




DC 




DC 




DC 




DC 




DC 




DC 


DECEMBER 


DC 


MONS 


EQU 


MON# 


EQU 


•SSTDDATA 
* 


DS 


CTLBLOCK 
* 


DC 




DC 




DC 
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CL40'Subject: 
(•-HEADER) 
CL40' • 
CL15To: 
(•-HEADER) 
CL65' * 
CL80* * 

(*-HEADER)/80 

CL80V 

CL80'QUIT 

CL80'/r 

( # -ENDER) 

(*-ENDER)/80 

25X , 00 I 
CRTBL+13 

XW <CR> TO FIND 
CRTBL+255 



DC 


F'00000005' 


XL4'8004A77E' 


DC 


F00000004' 


DC 


F'00000008' 


DC 


F'00000032' 


DC 


F'00000128* 


DC 


F'00000256' 


DC 


F'00004097' 


DC 


F'00004103' 


DC 


F*00004104' 


OD 





XL4 , 0 , ,C , Sun; 

XL^T.C'mon,' 

XU^.C'Tue,' 

XL4'3\C*Wed,' 

XL4'4\C Thur,' 

XI^'S'.C'FiV 

XL4 , 6 , ( C'Sat,* 

XL4'6 t C , Sat t t 

•-SATURDAY 

(*-DOWTABLE)/DOW$ 

OD 

XL4 , 1\C'Jan' 

XL42\C'Feb' 

XU'S'.C'Mar* 

XL4 , 4 , ,C*Apr J 

XL4 , 5 , ( C'May' 

XL4 , 6 , ,C , Jun* 

XL47\C\Jul' 

XL4 t 8 , ( C , Aug' 

XL^'.C'Sep* 

XL4'A\C'Oct' 

XL4 , B , 1 C , NoV 

XlA'C'.C'Dec' 

•-DECEMBER 

(*MONTABLE)/MON$ 

OH 

CL(TCPBLEN)' ' 
CL8* 

CL6.000010' 



Mail from th system* 
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DC 


CL8'PROCESS' 


SPROCESA 
* 


DC 


CL10VERIFY' 




DC 


CL8' 




DC 


CL6'000016' 




DC 


CL8'STATEKEY' 


SSTATEKA 
* 


DC 


CL16XXXXXXXXXXXX' 




DC 


CL8 ' * 




DC 


CIS' ' 




DC 


CL6'000015' 




DC 


CL8'IPAnnR * 


SIPADDRA 


DC 


CL15 , 128.22772.2 ' 




DC 


CL8 ' 




DC 


CL6'000005' 




DC 




SPORTNMA 


DC 


CL5'03005' 




DC 


vLO 




DC 


V/Lv UUUU£U 




DC 




SSTUIDA 
* 


DC 


CI 00' ' 




DC 


CL8" 




DC 


CLS'OOOOIS' 




DC 


CL8'PASSWORD' 


SPASSWDA 
* 


DC 


CL15' 




DC 


CL8' ' 




DC 


CL6'00000r 




DC 


CL8'RETNCODE' 


RRETNCA 


EQU 


*-RSTDDATA 




DC 


CL5" 



DC CL8' ' 

DC CLe'ooooso' 

DC CL8'RETNMESS* 

RRETNMA EQU *-RSTDDATA 

DC CL80* ' 

RDATALEN EQU *-RSTDDATA 
* 

END RAMI1S00 
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APPENDIX H 



DATA SET RAMI00 

1. RAMI0400 FILE RECORD SECT 

ALL INFORMATION IN THIS DOCUMENT, INCLUDING THE TRANSPORT MECHANISM AND 
PROTOCOLS, ARE COPYRIGHT 1998 BY THE UNIVERSITY OF FLORIDA. ALL RIGHTS RESERVED. 

COPY RARARGDA 
USING RARARGDA, R2 

COPY RARAMMEN 
USING REARAMMEN.R12 
COPY RAMICOMM 
USING COMMAREA.R5 
COPY RARATCPB 

COY RARAEXLG 

2. WORKING STORAGE 

COPY DFHAID 3270 AID CHARACTERS 

COPY RAREGS REGISTER EQUATES 

EJECT 

DFHEISTG DSECT 



SCRATCH PAD AREA 
COPY RARASPAD 
FIELDS FOR RAMIGETD 



FINDFLD 


DS 


CL8 


FINDFLDT 


DS 


CL79 


UPDATE 


DS 


C 


SAVER 12 


DS 


F 


TEMP9 DS 


DS 


CL6 


TEMP06 


DS 


CL6 


RGFLUX 


DS 


CL2 


RGAPPT 


DS 


C 


RGDAYO 


DS 


C 


PHASE 


DS 


C 


BADSSNF 


DS 


C 


NOSSNF 


DS 


C 


CREDITS 


DS 


PL2 


CTLKEY 


DS 


CL3 


APPT 


DS 


CL2 


TIMEAP 


DS 


CL2 


DADATE 


DS 


0CL9 


DADUMM 


DS 


CL1 


DAMMDD 


DS 


0CL4 


DAMM 


DS 


CL2 


DADD 


DS 


CL2 


DATEIME 


DS 


CL4 


TIMEALL 


DS 


OCL5 BHHMM 


TIMEBLNK 


DS 


C 


TIMEHH 


DS 


CL2 


TIMEMM 


DS 


CL2 


SYSMMDD 


DS 


CL4 


PTIME 


DS 


PL4 


PSTIME 


DS 


PL4 
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DS 


PL4 


PRTIME 


DS 


PL4 


SYSTIME 


DS 


OCL6 


SYSHHMM 


DS 


OCL4 


SYSHH 


DS 


CL2 


SYSMM 


DS 


CL2 



SYSSS 


DS 


PI ? 


REGMTH 


DS 


PI ^ 


REGDATE 


DS 


0CL4 


REGMM 


DS 


CL2 


REGDD 


DS 


CL2 


REGTIME 


DS 


CL4 


PACK3 


DS 


PL3 


DIVIDEND 


DS 


OD 


QUOTIENT 


DS 


F 


REMAINS 


DS 


F 


DIVISOR 


DS 


F 


SAVETRID 


DS 


F 


SAVER6 


DS 


F 


SAVESELC 


DS 


F 


SAVEMVAR 


DS 


F 


SAVEMVLN 


DS 


H 


TEMPAREA 


DS 


CL30 


SAVESTID 


DS 


CL20 


SAVEPSWD 


DS 


CL10 


SAVEPASS 


DS 


CL4 



EJECT 



PROGRAM RAMI0400 STARTS HERE 
RAMI0400 DFHEIENT CODERE=(3,8) 
RAMI0400 AMODE 31 
RAMI0400 RMODE ANY 



START 



L 

CLC 
BE 

EXEC 



EXEC 

EQU 

XC 

MVC 

BAL 



R5.DFHEICAP 

EIBCALEN.-H'O' 

RETURN 

CICS HANDLE CONDITION DISIDERR(ERROR) 
ERROR(ERROR) TERMIDERR(ERROR)SYSIDERR(ERROR) 
ISCINVREQ(ERROR) INVREQ(ERROR) lOERR(ERROR) 
DISABLED(ERROR) ILLOGIC(ERROR) LENGERR(ERROR) 
NOTAUTH(ERROR) 

CICS HANDLE CONDITION NOTFND(NOTEND) NOTOPEN(NOTOPEN) 



NUMCHEC.NUMCHECK 

COMAFNDF^C'MDASPSWD' 

R4.GETDATA 



XC SAVEPSWD.SAVEPSWD 



DATA IDENTIFIER 
GO GET IT 

INIT FIELD 



LH R14=H'10' 

LA R15.SAVEPSWD 

MVC COMAFNDF=CMDASPSW2' 

BAL R4,GETDATA 

CLC SAVEPSWD.BLANKS 

BNH N02NO 

CLC SAVEPSWD.COMASELC 

BNE NOTSAME 

MVI COMASELC+4,C7 

MVC COMASELC+5(4),SAVEPSWD 



LENGTH OF DATA 
PUT DATA HERE 
DATA IDENTIFIER 
GO GET IT 
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N02ND 



MVC SAVESELC.COMASELC 
MVC COMAIB FN, BLANKS 



EXEC CICS LINK PROGRAMS RAM 1 1S00') COMMAREA(COMMAREA) 





CLI 






BE 


RETURN 




CLC 


COMAIBFN BLANKS 




BH 


GOBACK 




D 


bt 1 KUUU 




IVI 






D 
D 


Dl ITCDDAD 


NOTSAMF 




* 




MVC 


COMAIBFN =C10' 




B 


RETURN 


BAD 


EQU 


* 




MVC 


COMAIBFN=C6' 




B 


PUTERROR 


IBFN16 


EQU 


* 




MVC 


COMAIBFN=C16' 




B 


PUTERROR 


FORCE 


MVC 


COMAIBFN=C*3' 




MVC 


COMAPASS.SAVESELC 




B 


RETURN 


ERROR 


EQU 


* 


NOTOPEN 


EQU 


* 


NOTFND 


EQU 


* 




B 


PUTERROR 


PUTERROR 


EQU 


* 



SUCCESSFUL READ? 
NO, GET OUT 

SUCCESSFUL RETURN 
NO, GET OUT 



MVC COMAMESS^C'CONTINUE* 



PINOK 



MVI 
B 

EQU 
MVC 
MVC 
MVC 



COMAERRF.C'Y' 
RETURN 

COMAVUID(9),COMAEXSS 

COMATOPCCOMATARG 

COMAEXSS+3(6),SAVESTID+13 



CKSSNNUM 



SSNOK 



CKFORCE 



CLC 


COMAEXSS, BLANKS 


BH 


CKSSNNUM 


MVI 


NOSSNF.C'Y' 


B 


READMMEN 


MV2 


NUMCHEC.COMAEXSS 


CLC 


NUMCHEC(9),NUMZONE 


BE 


SSNOK 


MVI 


BAEDSSNF.CV 


B 


READMMEN 


EQU 


* 


MVC 


COMASELC(4),SAVESTID+3 


CLC 


COMADATA(5)=C'FORCE' 


BNE 


DOPIN 


MVI 


COMASELC+4.C7 


MVC 


COMASELC+5(4),SAVESTID+3 
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LH R14 =H'4* LENGTH OF DATA 

LA R15.SAVEPASS PUT DATA HERE 

MVC COMAFNDF =C'PASSWORD* DATA IDENTIFIER 

BAL R4.GETDATA GO GET IT 

CLC SAVE PASS, BLANKS 

BNH DOPIN 

MVC COMPASS.SAVEPASS 



DOPIN 



DO PIN ROUTINE 



cGU 
MVC 
MVC 
MVC 



SAVETR I D , E I BTRN I D 

IEBTRNID=C'RA56* 

COMASAVP^C'RAMIOSOO' 



PUTFIX 





LENGTH(COMACOML) 


MVC 


EIBTRNID.SAVETRID 


CLC 


COMASELC(5)M=C'+0050 


BNE 


PUTFIX 


MVI 


COMASELC+4MCT 


MVI 


COMASELC.C'O' 


MVC 


COMARCOD(5)MCINASELC 


MVC 


COMARMES, BLANKS 


B 


RETURN 



EXPIRED? 
EXPIRED? 
-TEMP FIX!!!!! 



*GOBACK 

RETURN 
* 

PUTDATAE 
BUMPADD 



NUMZONE 

BLANKS 

MAXWORK 



EQU 
EXEC 

MVC 
LA 



CICS RETURN 

0((*-*,R12),0(R6) 
R12 ( (*-*)(R12) 



COPY RAMIGETP 

DC 12C0' 

DC CL120* ' 

DC HL27000; 

SPACE 

EJECT 

LTORG 



ZONES 



RETURN TO CICS 



END RAMI0400 



JOBID 
JOB NAME: 
UERID: 

SYSOUT CLASS: 
OUTPUT GROUP: 
TITLE: 

DESTINATION: 
NAME: 



EROBBIN 
S3030 



TSU09089 
EROBBIN 
EROBBIN 
A 

4 .00001.00001 



UFG3820 
ROBBINS, EARL 
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ROOM: 
BUILDING: 
DEPARTMENT: 
ADDRESS: 



PRINT TIME: 11:37:13 AM 

PRINT DATE: 1 1 AUG 1 998 

PRINTER: PRT6 

SYSTEM ID: NER1 



EROBBIN 
S303 



JOBID: 
JOB NAME: 
USERID: 
SYSOUT CLASS: 
OUTPUT GROUP: 
TITLE: 



DESTINATION: 

NAME: 

ROOM 

BUILDING: 

DEPARTMENT: 

ADDRESS: 



TSU0989 
EROBBIN 
EROBBIN 
A 

5 



UFG3820 
ROBBINS, EARL 



PRINT TIME: 
PRINT DATE: 
PRINTER: 
SYSTEM ID: 



11:37:24 AM 
11 AUG 1998 
PRT6 
NER1 



TSO FOREGROUND HARDCOPY 



DSNAME=RA. PATENT (RAMI0600) 

DATA SET RAMI0600 

ALL INFORMATION IN THIS DOCUMENT, INCLUDING THE TRANSPORT 
MECHANISM AND PROTOCOLS, ARE COPYRIGHT 1998 BY THE 
UNIVERSITY OF FLORIDA. ALL RIGHTS RESERVED. 



COPY RARAMDAS 
USING RARAMDAS.R9 
COPY RARARGDA 
USING RARARGDA.R12 
SPACE 



2. 



WORKING STORAGE 



DFHEISTG 



TMPKEY 
TMPTIME 



COPY DFHAID 

SPACE 

DSECT 

SCRATCH PAD AREA 



3270 AID CHARACTERS 
REGISTER EQUATES 
COMMAREA DSECT 



DS 
DS 



0CL16 
PL8 



00010000 

00020000 

00030006 

00030106 

00030206 

00030306 

00030406 

00031000 

00040000 

00041000 

00042000 

00050000 

00060000 

00070000 

00080000 

00090000 

00100000 

00110000 

00120000 

00130000 

00140000 

00150000 

00170000 
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LINE 

MIDASSTE 

COUNT 

ABCODE 



RAMI0600 
RAMI0600 
RAMI0600 



DS CL80 
DS CL8 
DS PL3 
DS CL4 
COPY RARASPAD 
EJECT 



DFHIENT 
AMODE 31 
RMODE ANY 
SPACE 



CODEREG=(3,8) 



REQUIREMENT CHECKING AND EVLAUATION ROUTINES 



EXEC CICS HANDLE CONDITION DSIDERR(ERROR) 
ERROR(ERROR) TERMIDERR(TRMIDERR)SYSIDERR(ERROR) 
ISCINVREQ(ERROR) INVREQ(ERROR) lOERR(ERROR) 
DISABLED(ERROR) ILLOGIC(ERROR) LENGERR(ERROR) 
NOTAUTH(ERROR) DUPREC(ERROR) 

EXEC CICS HANDLE ABEND LABEL (HNDABND) 

EXEC CICS HANDLE CONDITION NOTOPEN(NOTOPEN) 
MVC MDASKEYY.TMPMDASK 
MVT MDASKEYY.C'O' 

EXEC CICS WRITE FILEf RAMDAS') FROM(RARAMDAS) 
LENGTH(HALFWORD) RIDFLD(MDASKEYY) 

AP COUNT =PT 

— DEQ RESOURCE- 
EXEC CICS DEQ RESOURCE(MIDASSTE) LENGTH(8) 
B NEXT 



ERROR 

MVC 
B 

TRMIDERR 
B 

NOTOPEN 



EQU 



LINE(41) ,=CTHERE WAS AN ERROR PROCESSING THE REQUEST 

SENDLIN 

EQU 

RETURN 



LINE(38)=0TATE FILE OR ALTERNATE INDEX NOT OPEN 

SENDLINE 
* 

L!NE(30) =C'REQUESTED RECORD WAS NOT FOUND* 
SENDLINE 



EQU 
MVC 
B 

NOTFND EQU 
MVC 
B 

STARTAGN EQU 

EXEC CICS START TRANSID('MI06' 
ALLDONE EQU 

MVC LINE.MESSMI06 

UNPK LINE+39(3),COUNT 

Ol L1NE+41.C0' 

SENDLINE EQU 

EXEC CICS HANDLE CONDITION I NVREQ (RETURN) NOTALLOC(RETURN) 
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00170200 

00170300 

00171000 

00171100 

00172000 

00201200 

00201301 

00201700 

00201800 

00201900 

00202000 

002030000 

00203100 

00203200 

00204000 

00205000 

00206000 

00207000 

00208000 

00208100 

00208200 

00208300 

00208400 

00208500 

00286000 

00287000 

00208900 

00469700 

00469800 

00469900 

00470000 

00470100 

00470200 

00470300 

00470400 

00470500 

00470600 

00470900 

00471000 

00551000 

00552000 

00553000 

00553100 

00553300 

00554000 

00555000 

00556000 

00560000 

00560100 

00560200 

00560300 

00560400 

00560500 

00560600 

00560700 

00560800 

00560900 

00561002 

00561103 
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RETURN 



RETURN2 
HNDABND 



EXEC CICS SEND FROM(LINE) 
EQU * 

EXEC CICS DEQ RESOURCE(MIDASSTE) LENGTH(8) NOHANDLE 

EQU * 
EQU * 

EXEC CICS ASSIGN ABCODE(ABCODE) 

EXEC CICS ABEND ABCODE(ABOCED) NODUMP 

B RETURN 



BLANKS DC CL80' ' 

MESSMI06DCCL80'MI06 COMPLETED SUCCESSFULLY, PROCESSED RECORDS 
LTORG 

END RAMI0600 



00561402 
00561502 
00561602 
00561804 
00561902 
00562002 
00562102 
00562202 
00562301 
00562401 
00562801 
00563401 
00563500 
00563600 
00563700 
00564000 
00565000 
00565100 
00566000 
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APPENDIX J 

nirvana.o— EAGLE transfer client for Web server. 

Written by Michael Lucas for the University of Florida 

November 11 , 1 998 http://www.reg.ufl.edu 

Incorporates clientc by Tom Kelliher and getcgivarsx from NCSA 

Ver 1.1.6 build 0 Robustified(tm)! 



Program flow 

This program is started by a call from a Web page which contains 
a form. Data is passed via a CGI string which is then parsed via 
the standard NCSA getcgivarsx program into a tow-dimensional 
array of strings: name of the filed paied with the value for the 
field. (Note that the program must be compiled in a directory 
where getcgivarsx exists, or is in the path.) 

This program then sends a message to the appropriate CICS server 
and port (both defined near the top of this program) to start the 
transaction MI00. 

When CICS receives this call it responds with OKTOSEND to indi- 
cate readiness to receive data. This program then sends all the 
CGI date in the form 

8-byte-field-name field-data carriage-return 
without the spaces (eg; MYFIELDNTHISISTHEDATAVn). 

When CICS has received the data it then does magic and returns 
a 50-byte data descriptor and a fuily-marked-up Web page. This 
program plarses the stream and writes the page to standard out, 
where it is picked up by the CGI form and sent as a Web page to 
the browser that originally called it. 

RECENT CHANGE LIST 
11/03/1998 ver 1.1.4 "Robustified!" 

Repaired code that sent garbage to Web browser on dead socket 
call, causing random text boxes or garbage to appear 

APPENDIX J 

11/17/1998 ver 1.1.5 
Added alarms piped to pdie, to prevent child processes forked 
by the SP from running forever if they fail to receive the 
needed information from the data client (e.g. CICS abend or 
online application hork by an AOL user). 

11/19/1998 ver 1.1.6 
Modified die and pdie to accept the socket address so they 
canclose the socket on err. Modified ail calling functions 
pass sock to die and pdie. 

^include <sys/types.h> 
include <sys/socket.h> 
#include <netinet/in.h> 
#include <netdb.h> 
#include <stdio.h> 
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#include <stdib.h> 
#include <signal.h> 
#include "getgivarc" 

#ifdef prod 

#define SERVER _PORT 9999 production port 

#else 

#defind SERVER_PORT 9999 test port 

#endif 

#define BUFFER_SIZE 10240 Input info string 

#define MAX_STRING_LENGTH 20480 

#define CTL_BUFFER_SIZE 60 Output info string 

#define UF_CICS "mvs.your.site" CICS server 

#define NUMBER_OF_XFER_ATTEMPTS 5 

#define TRANS_TYPE "MI00" 

#define DIAG_MSG_SIZE 8 

#define OK_MSG "GOTDATAOK" 

#define SPACES " 

prototypes 

void die (const char *, int); 
void die (const char *, int); 

void print Jop(void); 
void zero_pad(int, char *); 

main 

int main (int argc, char *argv[]) 

,n * s °ck; fd for socket connection 

struct sockaddrjn server; Socket info, for server 

struct sockaddrjn client; Socket info, about us 

in clientLen; Length of client socket struct, 

struct hostent *hp; Return value from gethostbyname() 

char buf [BUFFER SIZE]; Received data buffer 

char html_out{MAX_STRING_LENGTH); Build string for output 

register int I; loop counter 

int byte_out = 0; Total bytes sent on a socket write 

int bytejn = 0; Total bytes received on a socket read 



0 



int count = 1 miscellaneous counter 

int byte Jot = 0; 
register int rec_size = 0; 
register int rec_size = 0; 
char "cgivars; 

char outbut[CTL_BUFFER SIZE]; Data written to the socket 

char outbuf2[BUFFER_SIZE]; Data written to the socket 

charzero_stg[6]; 

int var_size = 0; Holds the length of the cgi variable 

char holder(25]; 



s ck)); 



Install the signalling system to abort processing in case of error. 
signal(SIGALRM, diefNo response from data client. Nirvana terminating.", 
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alarm(600); 

Parse th cgi string and pull out a 2d array of data 
cgivars = getcgivarsQ ; 

Open a TCP socket and send message, 
if ({sock = socket (AFJNET, SOCK_STREAM, 0)) < 0) 
pdiefCouldn't open stream sockef.sock); 

Prepare to connect to server. 

bzero((char *) Sserver, sizeof(server)); 

server.sinjamily = AFJNET; 

if ((hp = gethostbyname(UF_CICS)) == NULL) 

{ 

printff%s: unknown hostW, UF_CICS); 

die(buf, sock); 

} 

bcopy(hp->h_addr,&server.sin_addr, hp->hjength); 
server.sin^port = htons((u_short) SERVER J>ORT); 

Try to connect 

if (connect(sock, (struct sockaddr*) &server, sizeof(server)) ,0) 
pdiefCouidn't connect stream socket", sock); 

Determine what prot client's using. 

clientLen = sizeof(client); 

if(getsockname() overwrote name structure", sock); 

Prepare to send to CiCS to kick off the transaction. 

if (byte_out = write(sock, TRANSJTYPE, sizeof(TRANS TYPE)) < 0 ) 
pdiefCouldn't write TRANS JTPE on stream socket", sock); 

Check that CICS is happy and ready to receive data. 

if (bytejn = read(sock t buf, DIAG__MSG_S1ZE)) If we got data 

if(stemp(buf/OKTOSEND w )) Check for ready 

dief CICS did not reply ready.", sock); 
These brackets are needed to define the scope of the IF ELSE 

condition. 



else 

pdiefNo answer from socket reading ready message from CICS.", 

sock); 

Start formatting the HTML page. 

print Jop(); 

Flush the strings. 

bzero(html_out, sizeof(htmLout)); 
bzero(outbuf2, sizeof(outbuf2)); 
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Copy the Web page variabl s to the output string in this format: 

8 spaces, variabl length(6), variable name, variable data, newline. 
Copy until out of data. 



for (1=0; cgivars[l]; I++) 
{ 

bzero (holder, sizeof(holder)); 

Pull any button data 

if (! stemp (cgivars[l], "MIDASBTN")) 
I + = 2; 

var_size = strlen (cgivars[l + 1]); 
zero_pad(var_size, zero_stg); 
strcat(outbut2, zero_stg)7 
sprintfholder, m %6\ var_size); 
strcat(outbuf2, holder); 
strcat(outbuf2, cgivars[l]); 
strcat(outbuf2, cgivars[+ 
strcat(outbuf2, "\n"); 
} 

Move the length info to the beginning of the output stream. 
It will be the length of outbut PLUS the information itself. 

rec_size = (CTL_BUFFER_SIZE + strlen(outbuf2)); 



zero_pad)rec_size t zero_stg); 



sprintf(html_out, M %s%d M ) zero_stgjec_size); 

strcat(htmI_out ( " M ); 

0 1 2 3 4 5* 

Add the output buffer to the transmission string. 

strcat(htmLout, outbuf2); 

Write html_out to the socket 

count = 1; 
byte Jot = 0; 

while (byte_tot < rec size) 
{ 

if ( ! (byte_out = writefsock.htmLout, rec_size))) 

count + +; 
if (byte_out < 0) 

pdiefExceeded number of write attempts on socket", sock); 
byte Jot + = byte_out; 
} 

Clear all buffers and counters to prepare to read CICS r sponse. 
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count = 1 ; 
rec_siz = 0; 
bytejot = 0; 
bzero(buf, sizeof(buf)); 
bzero(outbuf2, sizeof(htmLout)); 

Read the CICS response from the socket. 

if ( ! (bytejn = read(sock, buf, CTL_BUFFER_SI2E))) 
{ 

If null read, increment bad read counter and test for excess, 
count + +; 

if (count = = N U M B E R_0 F_XF E R_ATTEM PTS ) 

pdiefExcess number of failed reads on initial socket read. Check 



communications", sock); 
} 

else We got data on the read, continue 
{ 

Move the first 6 bytes of buf into outbuf2 

strncpy(outbuf2,buf,6); 
rec_size = atoi(outbuf2); 
bytejot = rec_size - bytejn; 

if (bytejn < 0) 

pdie(buf, sock); 

Skip the control info and copy the remainder to the Web output buffer. 



for(i = 0; i < bytejn; i + +) 

printf( u %c", buf[(i + CTL_BUFFER_SIZE)]); 

) 

If we didn't get the entire stream in the first pass, loop until we do. 
while (bytejot > 0) 

bzero(buf. sizeof(buf)); 
bytejn = read(sock, buf, bytejot); 
if (bytejn < 0) 

pdie( h Died while in the socket reading loop", sock); 
if(count = = NUMBERJDFJ(FER_ATTEMPTS) 

pdie("Exceeded number of dead reads on loop socket read", 

sock); 

if(byte Jn = = 0) If dead read on socket 

count + +; increment bad-read counter 

} 

else 

{ 

bytejot- + bytejn; 
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pnntf(* , %s w , but); Send but to webs rver 

count = 0; Reset bad-read counter 

} 

} 

Send confirmation back to CICS 

if(byte_tot < = rec_size) which will be true if 
{ we got the data 

if ( ! (byte_out = write{sock, OKJvlSG, sizeof (OKJvlSG)))) 

pdiefDied while confirming transmission received ".sock); 

} 

Write out the end-html string to the Web server 
printfC</body></html> w ); 

Close this connection. 
close(sock); 
} 

End of main 



pdie — Call perror() to figure out what's going on and die. 



void pdie(const char *mesg t int sock) 
{ 

printf( w <docy bgcolor=cc0000 text = ffffff><title> Error Report</title>\n"); 
printf("<h3<>center>Application Error Report </h3<>hr>\n"); 
printf("<bP-<l>Problem: </l> %s. Check your data and try 
reloading. <br>\n w ,mesg); 
perror(mesg); 

printf( M <hr></center></body></html>''); 
close(sock); 
exit(1); 
} 

die — Print a message and die. 



void die(const char *mesg t int sock) 

printf( u <br><i>Error! : %. Try reloading, or contact support \n",mesg); 
fputs(mesg, stderr); 
fputcfAn', stderr); 
close(sock); 

exit(1); 
} 
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print jop — Start output of the HTML page 
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void print Jop(void) 
{ 

printfrContent-type: text/html\n\n M ); 
printf("<html>\n") 

printf("<! All information in this document, including the transport>\n); 
printf("<| mechanism and protocols, are copyright 1998 by the >\n n ); 
printff<! University of Florida. All rights reserved. >\n"); 

Uncomment the following line to enable no-cache for production. 

printff. META HTTP-EQUIV = V Pragma^Content^no-cacheV'^n"); 



zero_pad — Adds the leading zeros to the data length description 
void zero_pad(int rec_size, char *zero_stg) 



bzero(zero_stg, sizeof(zero_stg)); 

if (rec_size < = 9) 

strcpy(zero_stg t M 00000 M ); 
else if (rec_size <=99) 



strcpy(zero_stg, "0000"); 
else if (rec_size <= 999) 

strcpy(zero_stg, "000); 
else if (rec_size < 9999) 

strcpy(zero_stg, "00 H ); 
else if (rec_size < = 9999) 

strcpy(zero__stg, "0"); 
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What is claimed is: 

1- A method of providing Web access to data, 
the steps comprising: 

providing a Web server for distribution of data to 
users; 

providing a database on a database computer operably 
connected to the Web server, the database having a 
database program that provides data in a given 
format; 

upon a user requesting data in the database, the Web 
server forwarding the request to the database, the 
data base program accessing the data in the given 
format, the database computer running a Web control 
program that generates a Web page with the requested 
data and supplies the generated Web page to the 
user. 

2. The method of Claim 1 wherein the Web control 
program marries file definition objects and page 
definition objects to generate Web pages. 

3. The method of Claim 1 wherein the Web server 
is on a Web server computer different from the database 
computer. 

4. The method of Claim 3 wherein the database 
computer is a mainframe computer. 
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5. The method of Claim 4 wherein the mainframe 
computer supplies the generated Web page to the user via 
the Web server computer. 



6. The method of Claim 4 wherein, upon a user 
requesting data not in the mainframe computer, the Web 
control program causes the mainframe computer to access 
data on a remote computer and the Web control program 
then generates a Web page with the requested data and 
supplies the generated Web page to the user. 



7. The method of Claim 4 wherein, responsive to 
a user, the Web control program calls a subroutine on the 
mainframe computer, which subroutine is independent of 
the Web control program and is a legacy subroutine. 

8. The method of Claim 4 further including the 
steps of: having a user supply an identification code, 
forwarding the identification code from the Web server 
computer to the mainframe computer, the Web control 
program then generating a state key, incorporating the 
state key into a Web page supplied to that user, and 
wherein the mainframe computer detects the state key from 
the Web page upon the user requesting data and decides 
whether that user can access the requested data based on 
the state key. 
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9. The method of Claim 8 wherein the state key 
is randomly generated for a given access session and the 
state key loses its ability to authorize data access if 
it is not sent by the user to the mainframe computer at 
least once during a time-out interval. 

10- The method of Claim 4 wherein the Web control 
program receives a page change command from a user using 
a Web browser and, responsive to the page change command, 
the Web control program changes a given Web page to a 
changed Web page such that any users accessing the given 
Web page now receive the changed Web page, the page 
change command changing the appearance of a given Web 
page. 

11. The method of Claim 1 further including the 
steps of: having a user supply an identification code, 
the Web control program then generating a state key, 
incorporating the state key into a Web page supplied to 
that user, and wherein the database computer detects the 
state key from the Web page upon the user requesting data 
and decides whether that user can access the requested 
data based on the state key. 

12. The method of Claim 1 wherein the Web control 
program receives a page change command from a user using 
a Web browser and, responsive to the page change command, 
the Web control program changes a given Web page to a 
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changed Web page such that any users accessing the given 
Web page now receive the changed Web page, the page 
change command changing the appearance of a given Web 
page. 



13. A method of providing Web access to data, 
the steps comprising: 

providing a Web server for distribution of data to 
users ; 

providing a database on a database computer bperably 
connected to the Web server, the database having a 
database program that provides data in a given 
format; 

providing a Web control program on the database 
computer ; 

having a user supply an identification code to the 
Web server, the Web control program then generating 
a state key and incorporating the state key into a 
Web page supplied to that user, and wherein the 
database computer detects the state key from the Web 
page upon the user requesting data and decides 
whether that user can access the requested data 
based on the state key. 



14. The method of Claim 13 wherein the state key 
loses its ability to authorize data access if it is not 
sent by the user to the database computer at least once 
during a time-out interval. 



SUBSTITUTE SHEET (RULE 26) 



WO 00/33202 



PCT/US99/28321 ~ 



100 



15, The method of Claim 14 wherein the Web 
server is on a Web server computer different from the 
database computer. 



16. The method of Claim 15 further including the 
step of forwarding the identification code from the Web 
server to the database computer. 

17. The method of Claim 16 wherein the database 
computer is a mainframe computer. 

18. The method of Claim 17 wherein the state key 
is randomly generated for a given access session. 

19. The method of Claim 13 wherein the state key 
is randomly generated for a given access session. 

20. A method of managing a Web site, the steps 
comprising: 

providing a Web control program on a computer; 
having the Web control program receive a page change 
command from a user using a Web browser to access 
the Web site; and, 

responsive to the page change command, the Web 
control program changing a given Web page to a 
changed Web page such that any users accessing the 
given Web page now receive the changed Web page, the 
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page change command changing the appearance of a 
given Web page. 

21. The method of Claim 2 0 wherein the Web 
control program marries file definition objects and page 
definition objects to generate Web pages, 

22. The method of Claim 21 wherein the computer 
having the Web control program is a mainframe computer 
and users request data on the mainframe computer via a 
Web server on a Web server computer, 

23. The method of Claim 22 wherein the Web 
control program generates HTML through a completely table 
driven process, independent of file definitions and page 
definitions. 

24. The method of Claim 23 further including the 
steps of: having a user supply an identification code, 
forwarding the identification code from the Web server 
computer to the mainframe computer, the Web control 
program then generating a state key, incorporating the 
state key into a Web page supplied to that user, and 
wherein the mainframe computer detects the state key from 
the Web page upon the user requesting data and decides 
whether that user can access the requested data based on 
the state key. 
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25. The method of Claim 22 further including the 
steps of: 

providing a database on the mainframe computer, the 
database having a database program that provides 
data in a given format; 

upon a user requesting data in the database, the Web 
server forwarding the request to the database, the 
database program accessing the data in the given 
format, and, by operation of the Web control 
program, generating a Web page with the requested 
data and supplying the generated Web page to the 
user. 
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